support additional reveal options
diff --git a/R/revealjs_presentation.R b/R/revealjs_presentation.R
index 66fd542..53b3e4f 100644
--- a/R/revealjs_presentation.R
+++ b/R/revealjs_presentation.R
@@ -14,6 +14,8 @@
#' @param background_transition Slide background-transition ("default", "none", "fade", "slide",
#' "convex", "concave" or "zoom")
#' @param history \code{TRUE} to push each slide change to the browser history.
+#' @param reveal_options Additional options to specify for reveal.js (see
+#' \href{https://github.com/hakimel/reveal.js#configuration}{https://github.com/hakimel/reveal.js#configuration} for details).
#' @param template Pandoc template to use for rendering. Pass "default"
#' to use the rmarkdown package default template; pass \code{NULL}
#' to use pandoc's built-in template; pass a path to use a custom template
@@ -86,6 +88,7 @@
transition = "default",
background_transition = "default",
history = TRUE,
+ reveal_options = NULL,
highlight = "default",
mathjax = "default",
template = "default",
@@ -146,6 +149,16 @@
# history
args <- c(args, pandoc_variable_arg("history", jsbool(history)))
+ # additional reveal options
+ if (is.list(reveal_options)) {
+ for (option in names(reveal_options)) {
+ value <- reveal_options[[option]]
+ if (is.logical(value))
+ value <- jsbool(value)
+ args <- c(args, pandoc_variable_arg(option, value))
+ }
+ }
+
# content includes
args <- c(args, includes_to_pandoc_args(includes))