Question

从this question开始，我认为{{var}}形式的变量在其他编程语言中可以称为echos，但我不知道为什么他们在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==sampleRmd<-'Dear `r paste(contacts$firstname[contacts$state == eachstate], sep = ", ")`'
knit(text=sampleRmd, quiet=T)
]
a[a%%2==((1))]

你可以添加额外的括号/括号而不用改变R中代码的含义。所以在你的情况下，运行

contacts

会起作用。正如eachstate变量已解析为当前环境一样，knitr:::parse_only('paste(contacts$firstname[contacts$state == {{eachstate}}], sep = ", ")') # expression(paste(contacts$firstname[contacts$state == { # { # eachstate # } # }], sep = ", "))变量也是如此。使用或不使用大括号并没有什么不同。如果直接调用解析内联代码块的函数，可能会更明显地发生了什么

knitr

问题是，双括号通常用于＆＃34;模板＆＃34;语言和knit_expand()允许您定义此类模板。这些模板基本上是文本块，您可以在其中将文本中的值替换为R中当前作用域中的变量值。此替换由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"变量的当前值，在此示例中为knit()。这是在执行R代码之前完成的。请注意，如果您尝试knit(text=res) # Error in NextMethod("[") : object 'MI' not found，则会出现错误

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

这是因为扩展函数已经将MI的字面值放入代码中的字符串。它没有引用价值。您必须将模板更改为

{{1}}

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

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

1 个答案: