代码重构:从$到[[

Question

我有很多使用$运算符而不是[[的代码。我读过[[的许多优点，并希望重构所有的代码。

下面的方法有什么问题吗？我怎样才能最好地在Mac上用RStudio或TextWrangler代替搜索呢？

l <- list()
l$`__a` <- data.frame(`__ID` = stringi::stri_rand_strings(10, 1), col = stringi::stri_rand_strings(10, 1), check.names = F )

代码现在如下所示：

l$`__a`$`__ID`

我想把它重构成：

l[["__a"]][["__ID"]]

要做到这一点，以下的替换是否足够？

$` to [["

` to "]]

我已经在代码中找到了这个方法不能工作的地方，现在我还找到了如何避免这个问题的解决方法：Avoiding backtick characters with dplyr

df <- dat[["__Table"]] %>% select(`__ID` ) %>% mutate(fk_table = "__Table", val = 1)

在进行上述替换之前，我需要将select函数更改为此，以避免对回勾字符进行错误的替换：

select_(as.name("__ID"))

不幸的是，列名中的__无法避免，因为数据是从关系数据库(FileMaker)下载的，需要在保留列名的同时将其写回数据库。

关于[[的参考文献

• Code autocompletion with lists in RStudio
• Is it possible to index an R list using a character variable and the '$' operator?
• The difference between [] and [[]] notations for accessing the elements of a list or dataframe

关于R中重构的参考文献：

• R language aware code reformatting/refactoring tools?
• Tips for refactoring repetitive code in R

Answer 1

你可以试试：

v <- c("l$`__a`$`__ID`")

library(stringi)
stri_replace_all_fixed(v, c('$`', '`'), c('[["', '"]]'), vectorize_all = FALSE)

这意味着：

#[1] "l[[\"__a\"]][[\"__ID\"]]"

注意：在输出中看到了\"，因为print()在播放它们时会转义引号。您可以将上面的内容包装在noquote()中，以查看没有\"的输出。

noquote(
  stri_replace_all_fixed(v, c('$`', '`'), c('[["', '"]]'), vectorize_all = FALSE)
)

这意味着：

#[1] l[["__a"]][["__ID"]]

如果要将此应用于整个文件，可以尝试：

writeLines(stri_replace_all_fixed(readLines("script.R"), 
                                  c('$`', '`'), c('[["', '"]]'), vectorize_all = FALSE),
           file("new_script.R"))