为什么我需要将“get”包装在 J“lapply”调用中的虚拟函数中？

我希望通过类或常见模式匹配等标准来处理列grep.

我的第一次尝试没有成功：

require(data.table)
test.table <- data.table(a=1:10,ab=1:10,b=101:110)
##this does not work and hangs on my machine
test.table[,lapply(names(test.table)[grep("a",names(test.table))], get)]

里卡多·萨波塔 https://stackoverflow.com/users/1492421/ricardo-saporta 答案中的注释 https://stackoverflow.com/questions/15790743/data-table-meta-programming/15791747#15791747你可以使用这个构造，但你必须包装get在虚拟函数中：

##this works
test.table[,lapply(names(test.table)[grep("a",names(test.table))], function(x) get(x))]

为什么需要匿名函数？

（首选/更清洁的方法是通过.SDcols:)

test.table[,.SD,.SDcols=grep("a",names(test.table))]
test.table[, grep("a", names(test.table), with = FALSE]

虽然 @Ricardo 是正确的，即在包装器中包装依赖于方法分派的原语或函数更安全，但在这里我们可以通过设置正确的值来避免这种情况environment for get在其中进行搜索。技巧与lapply是使用sys.parent(n)（在这种情况下n = 0将起作用）以获得适当的调用环境。

test.table[,lapply(grep('a',names(test.table),value=TRUE), 
                    get, envir = sys.parent(0))]

（更多信息可以在这里找到在函数内部使用 get inside lapply https://stackoverflow.com/questions/8016636/using-get-inside-lapply-inside-a-function)