Rlang

作者

Shalom

发布日期

2023年5月24日

f1<-function(var1,var2){
  dplyr::summarise(mtcars,mean=mean({{var1}}+{{var2}}))
}
f1(mpg,cyl)
      mean
1 26.27812
f2<-function(var1,var2){
  dplyr::summarise(mtcars,mean=mean(!!sym(var1)+!!sym(var2)))
}
f2('mpg','cyl')
      mean
1 26.27812
x <- "name"

list2("{{ x }}" := 1)
$`"name"`
[1] 1
#> $`"name"`
#> [1] 1

list2("{x}" := 1)
$name
[1] 1