R elenco da variabili che utilizzano nomi variabili

Question

Ho cercato estesamente una soluzione per questo compito molto semplice e sebbene abbia una soluzione, sembra che ci debba essere un modo migliore. Il compito è quello di creare una lista da un insieme di variabili, utilizzando i nomi delle variabili come nomi per ogni elemento della lista, ad esempio:

a <- 2 
b <- 'foo' 
c <- 1:4 

mia soluzione attuale:

named.list <- function(...) { 
    l <- list(...) 
    names(l) <- sapply(substitute(list(...)), deparse)[-1] 
    l 
} 
named.list(a,b,c) 

produce:

$a 
[1] 2 

$b 
[1] "foo" 

$c 
[1] 1 2 3 4 

Answer 1

un paio di modi che posso pensare includono mget (fare ipotesi circa l'ambiente gli oggetti si trovano in):

mget(c("a","b","c")) 
$a 
[1] 2 

$b 
[1] "foo" 

$c 
[1] 1 2 3 4 

O come una modifica alla funzione, si potrebbe usare, match.call come questo:

named.list <- function(...) { 
    l <- list(...) 
    names(l) <- as.character(match.call()[-1]) 
    l 
} 
named.list(a,b,c) 
$a 
[1] 2 

$b 
[1] "foo" 

$c 
[1] 1 2 3 4 

Oppure si può fare in una sola volta utilizzando setNames come questo:

named.list <- function(...) { 
    l <- setNames(list(...) , as.character(match.call()[-1])) 
    l 
} 

named.list(a,b,c) 
$a 
[1] 2 

$b 
[1] "foo" 

$c 
[1] 1 2 3 4