Una función que devuelve un conjunto de datos

Question

Quiero crear una función que toma un nombre de conjunto de datos y un nombre de paquete y devuelve el conjunto de datos como hoja.de.datos. Aquí está mi intento

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

Sin embargo, esta función falla. El problema parece ser que la llamada a datos() no busca el valor de la variable de nombre, sino más bien "nombre".

Ya sé cómo pasar de una variable a su nombre, a través de deparse (sustituto (var)). Pero, ¿cómo hago para el otro lado, desde "var" a var?

Cualquier indicio apreciado!

Answer 1

seguirlo

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

loadDataSet("acme", "boot")