Merge pull request #783 from quarto-dev/knitr-options

Improve support of specific knitr engines for source output

Author: jjallaire

src/resources/rmd/hooks.R

@@ -272,7 +272,7 @@ knitr_hooks <- function(format, resourceDir, handledLanguages) {
                      "layout", "layout-nrow", "layout-ncol", "layout-align", "layout-valign", 
                      "output", "include.hidden", "source.hidden", "plot.hidden", "output.hidden")
     other_opts <- c("eval", "out.width", "yaml.code", "code", "params.src", "original.params.src", 
-                    "fenced.echo", "chunk.echo",
+                    "fenced.echo", "chunk.echo", "lang",
                     "out.width.px", "out.height.px", "indent", "class.source", 
                     "class.output", "class.message", "class.warning", "class.error", "attr.source", 
                     "attr.output", "attr.message", "attr.warning", "attr.error")
@@ -339,8 +339,8 @@ knitr_hooks <- function(format, resourceDir, handledLanguages) {
     x <- knitr:::one_string(c('', x))
 
     # leave verbatim alone
-    if (identical(options[["engine"]], "default")) {
-      return(paste0('\n\n````default', x, '\n````', '\n\n'))
+    if (options[["engine"]] %in% c("verbatim", "embed")) {
+      return(paste0('\n\n````', options[["lang"]] %||% 'default', x, '\n````', '\n\n'))
     }
 
     class <- options$class.source