r - 编织者的自旋(): cannot embed inline R expression in a heading

Question

我正在使用 knitr的 spin()将 R 脚本呈现为 HTML 的函数(使用 RStudio 的“编译笔记本”命令)。

虽然在纯文本中包含动态 R 表达式很容易，但这显然不适用于标题。

例如，第一个示例将内联表达式正确地嵌入到纯文本中:

library(knitr)

#' You can use the special syntax {{code}} to embed inline expressions, e.g.
{{mean(x) + 2}}
#' is the mean of x plus 2.

但是第二个示例，在呈现 HTML 时，仅将标题样式应用于第一行(“Crosstabulation of”)，然后换行并恢复为纯文本:

library(knitr)
var0 <- "Sex"
var1 <- "Education"

#' # Crosstabulation of
{{var0}}
#' # by
{{var1}}
#' # .

如何将标题样式应用到 block 的所有行？我必须使用任何替代语法吗？我错过了什么？

Answer 1

我认为这是 spin() 的限制。您可以使用 brew 预处理文件，或者让 R 以 markdown 格式输出 header ，

`%#%` <- function(tpl, vals) if(interactive()) vals else do.call(sprintf, c(fmt=tpl, vals)) 

var0 <- "Sex"
var1 <- "Education"

{{"# Crosstabulation of %s by %s " %#% list(var0, var1)}}