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

Question

从this question，我收集到{{var}} 形式的变量可以在其他编程语言中称为回声，但我不知道为什么它们会在 R 中做这些事情。

也就是说，我在 RMarkdown 模板（此处为 state_template.Rmd）中使用了它们，该模板作为输入输入到另一个脚本中的 for 循环中。

用另一个脚本中定义的向量元素填充“占位符”文本的示例：

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

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

allstates <- state.abb

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

Answer 1

在您的情况下，{{ }} 根本没有特殊含义。你会得到相同的结果

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))]

您可以添加额外的括号/大括号，而无需更改 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 = ", "))

问题是双括号经常用在“模板”语言中，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 表达式中添加了不必要的符号。