使用 mget() 将 data.table 与 rbindlist() 连接时出现意外错误消息

准备的同时这个答案 https://stackoverflow.com/a/47670107/3817004，我收到错误消息

错误：找不到“spine_hlfs”的值

从跑步

setDT(giraffe)[rbindlist(mget(df_names), idcol = "df.name"), on = "runkey", project := df.name][]

while

df_list <- mget(df_names)
setDT(giraffe)[rbindlist(df_list, idcol = "df.name"), on = "runkey", project := df.name][]

按预期工作。

在 github 上报告问题之前，我想向社区验证这确实是一个错误，或者是否有一个我不知道的错误消息的简单解释。

可重现的例子

set.seed(123L)
giraffe <- data.frame(runkey = 1:500,
                      X2 = sample.int(99L, 500L, TRUE),
                      X3 = sample.int(99L, 500L, TRUE),
                      X4 = sample.int(99L, 500L, TRUE),
                      project = "",
                      stringsAsFactors = FALSE)
spine_hlfs <- data.frame(runkey = c(1L, 498L, 5L))
ir_dia     <- data.frame(runkey = c(3L, 499L, 47L, 327L))
df_names <- c("spine_hlfs", "ir_dia")
library(data.table)

# this creates the error message
setDT(giraffe)[rbindlist(mget(df_names), idcol = "df.name"), on = "runkey", project := df.name][]
## Error: value for ‘spine_hlfs’ not found

# this works as expected
df_list <- mget(df_names)
setDT(giraffe)[rbindlist(df_list, idcol = "df.name"), on = "runkey", project := df.name][]

这基本上是因为（与get) mget has inherits = FALSE作为默认值。因此它只在本地环境中查找。更改为mget(df_names, inherits = TRUE)（或者，如果你想明确mget(df_names, envir = .GlobalEnv)）应该解决这个问题。

这是 @Arun 不久前在 GH 上独立报道的 https://github.com/Rdatatable/data.table/issues/1712他打算改变默认行为mget（当在一个data.table）要符合get未来，敬请期待。