如何防止 `...` 在 deparse(substitute(x)) 中消失

Question

短版

考虑这个函数：

my_fun <- function(x){
  deparse(substitute(x))
}

如果只添加一个变量名，为什么函数会删除 `？看这里：

my_fun(`bad name`)
"bad name"
my_fun(`bad name` - 1)
"`bad name` - 1"

长版

我写了一个简单的函数，它接受一个数据框并对选择的列进行一些转换。这是函数：

my_fun <- function(data, transform){
  transform <- deparse(substitute(transform))
  transform <- unlist(strsplit(transform, "\+"))
  out <- do.call("cbind.data.frame", lapply(transform, function(transform_i){
    eval(parse(text= transform_i), data)
  }))
  names(out) <- transform
  return(out)
}

有了这个函数，我们可以做这样的事情：

# Create data.
df <- data.frame(matrix(rep(1:4, 2), ncol= 2))
names(df) <- c("good_name", "bad name")

# Transform data with function.
my_fun(df, sqrt(good_name) + sqrt(`bad name`) - 1)
  sqrt(good_name)   sqrt(`bad name`) - 1
1         1.000000             0.0000000
2         1.414214             0.4142136
3         1.732051             0.7320508
4         2.000000             1.0000000

但是如果我们输入一个包含白色 space 的名称，函数将失败，如下所示：my_fun(df, `bad name`)。我注意到 deparse(substitute(transform)) 如果我不进行任何转换，则会删除 ` 。看这里：

my_fun <- function(data, transform){
  deparse(substitute(transform))
}
my_fun(df, `bad name`)
"bad name"
my_fun(df, `bad name` -1)
"`bad name` - 1"

如何防止 deparse(substitute(transform)) 删除 `?

我知道有很多方法可以像我的函数一样转换数据框。例如，我们可以在这里使用 with(df, `bad name` -1) 和 with(df, `bad name`) 。但这不是问题。

Answer 1

来自帮助文件?default：反引号选项的默认设置不是引用单个符号，而是仅引用复合表达式。提示查看 ?Quotes 帮助文件 - 如果需要，我们可以使用反斜杠转义反引号。

在此示例中，可以尝试将 deparse 函数的反引号参数设置为 TRUE。要比较不同的方法以及组合的解析方式，请考虑以下情况：

substitute(`bad name`)
#> `bad name`

deparse(substitute(`bad name`))
#> [1] "bad name"

deparse(substitute(`bad name`), backtick = T)
#> [1] "`bad name`"

# and see this fail:
substitute(`bad name)

# and this return
deparse(
  deparse(substitute(`bad name`))
)
#> "\"bad name\""

deparse(substitute(
  `deparse(substitute(bad name))`
))
#> [1] "deparse(substitute(bad name))"

deparse(substitute(
  `deparse(substitute(`bad name`))`
))
#> Error: unexpected symbol in:
#> "deparse(substitute(
#>  `deparse(substitute(`bad"
#> > ))
#> Error: unexpected ')' in ")"

# but
deparse(substitute(
  `deparse(substitute(\`bad name\`))`
))
#> [1] "deparse(substitute(`bad name`))"

如果打算强制使用角色名称，请查看 deparse1 R4.0.0（2020 年 4 月）及以后的内容。

如何防止 `...` 在 deparse(substitute(x)) 中消失

How to prevent `...` to disappear inside of deparse(substitute(x))

parsing

r

function