r - 返回数据集的函数

Question

我想创建一个函数，它接受数据集名称和包名称并将数据集作为 data.frame 返回。这是我的尝试

loadDataSet <- function(name, pkg) {
      varname <- data(name, package=pkg)
      return(get(varname[[1]]))
    }
loadDataSet("acme", "boot")

但是，这个函数失败了。问题似乎是，对 data() 的调用不会查找 name 变量的值，而是查找“name”。

我已经知道如何通过 deparse(substitute(var)) 从变量转到其名称。但是我该如何走另一条路，从“var”到var？

任何提示表示赞赏!

Answer 1

尝试一下

loadDataSet <- function(name, pkg) {
      do.call("data", list(name,package=pkg))
      return(get(name))
    }

loadDataSet("acme", "boot")