Merge pull request haozhu233#781 from haozhu233/multi_output

Fix an obscure YAML possibiity
Warnes-Innovations · Dec 1, 2023 · 06f8743 · 06f8743
2 parents 87b3c68 + 183dc7c
commit 06f8743
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/zzz.R b/R/zzz.R
@@ -21,11 +21,9 @@
   # auto_format <- getOption("kableExtra.auto_format", default = FALSE)
   # if (auto_format) auto_set_format()
 
-  output_type <-
-    if (is.list(rmarkdown::metadata$output))
-      names(rmarkdown::metadata$output)[1]
-    else
-      rmarkdown::metadata$output
+  output_type <- rmarkdown::metadata$output[1]
+  if (is.list(output_type))
+    output_type <- names(output_type)
 
   if (!is.null(output_type) && output_type %in% c(
         "ioslides_presentation", "slidy_presentation",