support slide_level in slidy_presentation(): https://stackoverflow.co…

…m/q/59157211/559676
rstudio · Dec 19, 2019 · 07b238c · 07b238c
1 parent 0a10565
commit 07b238c
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -7,6 +7,8 @@ rmarkdown 2.1
 
 - Ensure the `tempdir()` exists (via `tempdir(TRUE)`) when writing HTML dependencies to a temporary file, because this directory might be erased by accident (thanks, Kurt Hornik, and also @karawoo #1743).
 
+- Added the `slide_level` argument to `slidy_presentation()` (https://stackoverflow.com/q/59157211/559676).
+
 
 rmarkdown 2.0
 ================================================================================

diff --git a/R/slidy_presentation.R b/R/slidy_presentation.R
@@ -32,6 +32,7 @@
 #' }
 #' @export
 slidy_presentation <- function(incremental = FALSE,
+                               slide_level = NULL,
                                duration = NULL,
                                footer = NULL,
                                font_adjustment = 0,
@@ -74,6 +75,10 @@ slidy_presentation <- function(incremental = FALSE,
   if (incremental)
     args <- c(args, "--incremental")
 
+  # slide level
+  if (!is.null(slide_level))
+    args <- c(args, "--slide-level", slide_level)
+
   # duration
   if (!is.null(duration))
     args <- c(args, pandoc_variable_arg("duration", duration))

diff --git a/man/slidy_presentation.Rd b/man/slidy_presentation.Rd