R：重命名表达式中的 R 对象

Question

我有一个表达式（有时很简单，有时更复杂），我正在寻找一种可靠的方法来重命名表达式中的对象。我目前正在将表达式转换为字符串，进行一些匹配和替换。但这肯定不是最防错的方法。

本质上，我认为类似于 RStudio 的“在范围内重命名”功能，但能够运行在单个表达式上以编程方式对其进行

我认为可能有一种方法可以将表达式分解成各个部分，重命名，然后重新 assemble?

谢谢！

library(rlang)

# what i have
expr(row_type == 'label')
#> row_type == "label"

# what i want
expr(row_type_2 == 'label')
#> row_type_2 == "label"

# can it also work with `.data$` prefix to give us `.data$row_type_2 == 'label'`
expr(.data$row_type == 'label')
#> .data$row_type == "label"

Answer 1

如图所示使用substitute：

e <- expr(row_type == 'label')
do.call("substitute", list(e, list(row_type = as.name("row_type_2"))))
## row_type_2 == "label"

e2 <- expr(.data$row_type == 'label')
do.call("substitute", list(e2, list(row_type = as.name("row_type_2"))))
## .data$row_type_2 == "label"

如果您知道 e 和 e2 的精确结构，这也适用：

e[[3]] <- as.name("row_type_2")
e
## row_type == row_type_2
 
e2[[2:3]] <- as.name("row_type_2")
e2
## .data$row_type_2 == "label"

R：重命名表达式中的 R 对象

R: Rename R objects in an expression

r

rlang