返回数据集的函数

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")