R/R标记中双大括号内变量的用法

R/R标记中双大括号内变量的用法,r,knitr,r-markdown,R,Knitr,R Markdown,从中,我收集到形式为{{var}}的变量在其他编程语言中可以被称为echos,但我不知道它们为什么会像在R中那样做 也就是说,我在RMarkdown模板中使用了它们(这里,state\u template.Rmd),该模板作为另一个脚本中的for循环的输入 使用另一脚本中定义的向量元素填充“占位符”文本的示例: Dear `r paste(contacts$firstname[contacts$state == {{eachstate}}], sep = ", ")`,` 这将计算为传递给fo

从中,我收集到形式为
{{var}}
的变量在其他编程语言中可以被称为echos,但我不知道它们为什么会像在R中那样做

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

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

Dear `r paste(contacts$firstname[contacts$state == {{eachstate}}], sep = ", ")`,`
这将计算为传递给
for
循环的
所有状态下联系人的名字

allstates <- state.abb

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

allstates在您的例子中,
{{}
没有任何特殊意义。你会得到同样的结果

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))]
问题在于,双大括号通常在“模板”语言中使用,而且
knitr
允许您定义此类模板。这些模板基本上是文本块,您可以将文本中的值与R中当前作用域中的变量值进行交换。此替换由
knit\u 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 = \", \")`"
这是因为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"

sampleRmd@Nicapyke我已经更新了我的答案。结果我第一次就错了。在您的示例中,大括号实际上完全没有任何作用。这是一个极好的答案,@MrFlick!非常感谢您深思熟虑的意见。我会传授你的知识。。。我准备了一张关于
{{}}
使用的幻灯片,您对它们在模板语言中的使用做了比我更好的解释。
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 = \", \")`"
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"