diff --git a/R/revealjs_presentation.R b/R/revealjs_presentation.R
index 4e9a736..d6d3d7d 100644
--- a/R/revealjs_presentation.R
+++ b/R/revealjs_presentation.R
@@ -107,7 +107,6 @@
     args <- c(args, "--incremental")
   
   # centering
-  jsbool <- function(value) ifelse(value, "true", "false")
   args <- c(args, pandoc_variable_arg("center", jsbool(center)))
   
   # slide level
diff --git a/R/utils.R b/R/utils.R
index 2d7de47..f681e24 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -3,4 +3,7 @@
   system.file("rmarkdown/templates/revealjs_presentation/resources",
               ...,
               package = "revealjs")
-}
\ No newline at end of file
+}
+
+# Convert boolean from R to JS boolean
+jsbool <- function(value) ifelse(value, "true", "false")
\ No newline at end of file