diff --git a/R/revealjs_presentation.R b/R/revealjs_presentation.R
index 80e36a2..5e50755 100644
--- a/R/revealjs_presentation.R
+++ b/R/revealjs_presentation.R
@@ -18,6 +18,7 @@
 #'   "convex", "concave" or "zoom")
 #' @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).
@@ -68,6 +69,7 @@
                                   theme = "simple",
                                   transition = "default",
                                   background_transition = "default",
+                                  history = TRUE,
                                   reveal_options = NULL,
                                   highlight = "default",
                                   mathjax = "default",
@@ -129,6 +131,9 @@
   background_transition <- match.arg(background_transition, revealjs_transitions())
   args <- c(args, "--variable", paste("backgroundTransition=", background_transition, sep=""))
   
+  # history
+  args <- c(args, pandoc_variable_arg("history", jsbool(history)))
+  
   # additional reveal options
   if (is.list(reveal_options)) {
     for (option in names(reveal_options)) {