R/RMarkdown 中双花括号内变量的使用

Usage of variables within double curly braces in R/RMarkdown

this question 中,我了解到 {{var}} 形式的变量在其他编程语言中可以称为回声,但我不知道为什么它们会像在 R 中那样做。

也就是说,我在一个 RMarkdown 模板(这里是 state_template.Rmd)中使用了它们,该模板作为输入馈送到另一个脚本中的 for 循环中。

使用另一个脚本中定义的矢量元素填充 "placeholder" 文本的示例:

Dear `r paste(contacts$firstname[contacts$state == {{eachstate}}], sep = ", ")`,`

这将计算为传递给 for 循环的每个 allstates 状态下联系人的名字。

allstates <- state.abb

for (eachstate in allstates) {
    knit2html(input  = 'state_template.Rmd',
....
}

在你的例子中,{{ }} 没有任何特殊意义。你会得到与

相同的结果
Dear `r paste(contacts$firstname[contacts$state == eachstate], sep = ", ")`,

例如,在 R 中,这些是等价的

a<-1:10
a[a%%2==1]
a[a%%2=={{1}}]
a[a%%2==((1))]

您可以添加额外的 parenthesis/braces 而无需更改 R 中代码的含义。因此在您的情况下,运行

sampleRmd<-'Dear `r paste(contacts$firstname[contacts$state == eachstate], sep = ", ")`'
knit(text=sampleRmd, quiet=T)

效果一样。正如 contacts 变量解析为您当前的环境一样,eachstate 变量也是如此。使用或不使用大括号没有区别。如果直接调用解析内联代码块的函数,可能会更明显

knitr:::parse_only('paste(contacts$firstname[contacts$state == {{eachstate}}], sep = ", ")')
# expression(paste(contacts$firstname[contacts$state == {
#     {
#         eachstate
#     }
# }], sep = ", "))

要注意的是 "template" 语言中经常使用双大括号,knitr 允许您定义此类模板。这些模板基本上是文本块,您可以在其中将文本中的值与 R 中当前范围内的变量值交换。此替换由 knit_expand() 函数完成。这是您案例中的一个最小示例

sampleRmd<-'Dear `r paste(contacts$firstname[contacts$state == {{eachstate}}], sep = ", ")`'

contacts <- data.frame(
    firstname=c("Adam","Becky","Clement","David"),
    state=c("MI","CA","CA","MI")
)

eachstate <- "MI"
res <- knit_expand(text=sampleRmd)
res
# [1] "Dear `r paste(contacts$firstname[contacts$state == MI], sep = \", \")`"

基本上它只查找 {{}} 之间的任何内容,并将其替换为同名变量的值。在这种情况下,将 {{eachstate}} 替换为 eachstate 变量的当前值,在此示例中为 "MI"。这是在执行 R 代码之前完成的。请注意,如果您尝试 knit() 这样做,您将得到一个错误

knit(text=res)
# Error in NextMethod("[") : object 'MI' not found

这是因为expand函数把MI的字面量值当成字符串放到代码里了。它没有引用价值。您必须将模板更改为

sampleRmd<-'Dear `r paste(contacts$firstname[contacts$state == "{{eachstate}}"], sep = ", ")`'
res <- knit_expand(text=sampleRmd)
knit(text=res, quiet=T)
# [1] "Dear Adam, David"

但是在您的示例中,您没有利用任何模板功能。您基本上只是在 R 表达式中添加了不必要的符号。