| commit | 8d845bb33d92c47e91149f6510c8beed0c104eef | [log] [tgz] |
|---|---|---|
| author | Michael Lerch <mdlerch@gmail.com> | Tue Mar 29 19:50:10 2016 -0600 |
| committer | Michael Lerch <mdlerch@gmail.com> | Tue Mar 29 19:58:27 2016 -0600 |
| tree | a394a527e8f5a7cd5b4b76d57dc99d4fc6132b1e | |
| parent | 05f85669ad39ce017b6bb70c9dd38f5696adf7a3 [diff] |
Interpret slide_level in YAML
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())