返回数据集的函数

Question

我想创建一个获取数据集名称和包名称的函数,并将数据集作为data.frame返回.这是我的尝试

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

但是,此功能失败.问题似乎是,对data()的调用不会查找name变量的值,而是查找"name".

我已经知道如何从变量到其名称,通过deparse(替换(var)).但是我怎么走另一条路,从"var"到var？

任何暗示赞赏!

Answer 1

试一试

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

loadDataSet("acme", "boot")