out_format() could be empty, too (when running outside knit())

yihui · Feb 16, 2023 · 78f1db5 · 78f1db5
1 parent 05f2195
commit 78f1db5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -383,7 +383,8 @@ is_latex_output = function() {
 #' @rdname output_type
 #' @export
 is_html_output = function(fmt = pandoc_to(), excludes = NULL) {
-  if (length(fmt) == 0) fmt = out_format()
+  fmt = fmt %n% out_format()
+  if (length(fmt) == 0) return(FALSE)
   if (grepl('^markdown', fmt)) fmt = 'markdown'
   if (fmt == 'epub3') fmt = 'epub'
   fmts = c('markdown', 'epub', 'epub2', 'html', 'html4', 'html5', 'revealjs', 's5', 'slideous', 'slidy', 'gfm')