R管道、mget和环境

Question

我把这个贴出来是希望有人能解释一下这里的行为。也许这可以为其他人节省一些时间来追踪如何修复类似的错误。

这是可行的：

results_all <- rbindlist(mget(ls(pattern = "part_", )))

我大概是从内存中的list Data.Tables和按行组合（rbind）中学到这种方法的，而且知道如何确实做到这一点是很有帮助的。

为了可读性，我通常更喜欢使用magrittr管道（或与data.table链接），对于这样的项目尤其如此，因为我使用dplyr查询数据库。但此代码会导致一个错误：

results_all <- ls(pattern = "part_", ) %>% 
 mget() %>%
 rbindlist()

results_all <- ls(pattern = "part_", ) %>% 
 mget(inherits = TRUE) %>%
 rbindlist()

results_all <- ls(pattern = "part_", ) %>% 
 mget(envir = .GlobalEnv) %>%
 rbindlist()

编辑：添加可复制示例

根据对可复制答案的请求，使用这三个data.tables（data.frames或tibbles的行为相同）运行上面的代码就可以做到这一点。

part_a <- data.table(col1 = 1:10, col2 = sample(letters, 10))

part_b <- data.table(col1 = 11:20, col2 = sample(letters, 10))
  
part_c <- data.table(col1 = 21:30, col2 = sample(letters, 10)) 

Answer 1

管道运算符的rhs参数（在您的示例中，表达式mget())从不被解释器计算为函数调用。管道运算符是一个中缀函数，它对其第二个参数(rhs)执行非标准求值。管道函数使用RHS表达式作为一种“模板”组成并执行一个新的函数调用。

此新函数调用的调用环境是%>%的函数环境，而不是LHS函数的调用环境或全局环境。在示例中，.globalenv和lhs函数的调用环境恰好是同一环境，并且该环境是%>%函数环境的父环境，这就是为什么继承=true或将环境设置为.globalenv对您有效的原因。