对象从函数中的命名空间中消失

我正在编写一个包装器来按行组合任意数量的数据集。由于有些变量可能具有唯一的变量，因此我首先限制数据中的变量。

我的功能是这样工作的

rcombine <- function(List, Vars) {
  List2 <- lapply(List, subset, select=Vars)
  Reduce(rbind, List2)
}

当我直接运行代码时，它可以工作。但在函数中，我的变量Vars消失。

例如：

x <- data.frame('a'=sample(LETTERS, 10), 'b'=sample(LETTERS, 10), 'c'=sample(LETTERS, 10))
y <- data.frame('a'=sample(LETTERS, 10), 'b'=sample(LETTERS, 10), 'e'=sample(LETTERS, 10))

rcombine(list(x, y), c('a', 'b'))

给我：

Error in eval(expr, envir, enclos) : object 'Vars' not found

但运行：

List <- list(x, y)
Reduce(rbind, lapply(List, subset, select=c('a','b')))

作品。我可以打印Vars来自函数，但在内部lapply它消失了。到底是怎么回事？

subset确实不应该用于这些类型的事情。从帮助页面

这是一个旨在交互使用的便利功能。为了 编程时最好使用标准子集函数，例如 [，特别是参数子集的非标准评估 可能会产生意想不到的后果。

对于您的特定问题，我不明白为什么直接使用“[”替换子集会成为问题。

rcombine <- function(List, Vars) {
  List2 <- lapply(List, "[", i= , j = Vars, drop = FALSE) # here is the change
  Reduce(rbind, List2)
}

# alternatively...
rcombine <- function(List, Vars) {
  List2 <- lapply(List, function(x){x[, Vars, drop = FALSE]}) # here is the change
  Reduce(rbind, List2)
}

x <- data.frame('a'=sample(LETTERS, 10), 'b'=sample(LETTERS, 10), 'c'=sample(LETTERS, 10))
y <- data.frame('a'=sample(LETTERS, 10), 'b'=sample(LETTERS, 10), 'e'=sample(LETTERS, 10))

rcombine(list(x, y), c('a', 'b'))