返回数据集的函数

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