commit 158f5c78caaef57fbb21710d1c3c532ca2332fa3
author JJ Allaire <jj.allaire@gmail.com> Wed Mar 30 20:40:20 2016 -0700
committer JJ Allaire <jj.allaire@gmail.com> Wed Mar 30 20:40:20 2016 -0700
tree a394a527e8f5a7cd5b4b76d57dc99d4fc6132b1e
parent 05f85669ad39ce017b6bb70c9dd38f5696adf7a3
parent 8d845bb33d92c47e91149f6510c8beed0c104eef

Merge pull request #30 from mdlerch/slidelevel

Interpret slide_level in YAML

R/revealjs_presentation.R

diff --git a/R/revealjs_presentation.R b/R/revealjs_presentation.R
index 541cf3f..6af3dc2 100644
--- a/R/revealjs_presentation.R
+++ b/R/revealjs_presentation.R
@@ -108,7 +108,8 @@
   args <- c(args, pandoc_variable_arg("center", jsbool(center)))
   
   # slide level
-  args <- c(args, "--slide-level", "2")
+  if (!is.null(slide_level))
+    args <- c(args, "--slide-level", as.character(slide_level))
   
   # theme
   theme <- match.arg(theme, revealjs_themes())