R: crear un vector llamado a partir de variables

Question

dentro de una función defino un montón de variables escalares como esto:

a <- 10 
b <- a*100 
c <- a + b 

Al final de la función, que quieren volver a,b,c en un llamado vector de, con los mismos nombres que las variables, con la codificación mínima, es decir, que no quieren hacer:

c(a = a, b = b, c = c) 

¿hay una construcción del lenguaje que hace esto? Por ejemplo, si simplemente hago return(c(a,b,c)), devuelve un vector sin nombre, que no es lo que quiero. Actualmente tengo una manera de hacer esto hacky:

> cbind(a,b,c)[1,] 
    a b c 
    10 1000 1010 

¿Existe tal vez un mejor, menos hacky, así?

Answer 1

Aquí hay una función para hacer eso, que también le permite nombrar opcionalmente algunos de los valores. No hay mucho que hacer, excepto el truco para obtener la expresión no evaluada y deparse en un único vector de caracteres.

c2 <- function(...) { 
    vals <- c(...) 

    if (is.null(names(vals))) { 
    missing_names <- rep(TRUE, length(vals)) 
    } else { 
    missing_names <- names(vals) == "" 
    } 
    if (any(missing_names)) { 
    names <- vapply(substitute(list(...))[-1], deparse, character(1)) 
    names(vals)[missing_names] <- names[missing_names] 
    } 

    vals 
} 

a <- 1 
b <- 2 
c <- 3 

c2(a, b, d = c) 
# a b d 
# 1 2 3 

en cuenta que no está garantizado para producir nombres sintácticamente válidos. Si lo desea, aplique la función make.names al vector names.

c2(mean(a,b,c)) 
# mean(a, b, c) 
#   1 

También, como con cualquier función que utiliza sustituto, c2 es más adecuado para el uso interactivo de ser utilizado dentro de otra función.