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 表达式中添加了不必要的符号。
从 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 表达式中添加了不必要的符号。