Come posso concatenare oggetti linguaggio composti in R?

Question

Sto cercando di creare espressioni in R concatenando espressioni più piccole. Per esempio in S + posso fare questo:

> x = substitute({a;b;c}) 
> y = substitute({d;e;f}) 
> c(x,y) 
{ 
    a 
    b 
    c 
    d 
    e 
    f 
} 

ma se provo in R, ottengo questo:

> c(x,y) 
[[1]] 
{ 
    a 
    b 
    c 
} 

[[2]] 
{ 
    d 
    e 
    f 
} 

dovrei fare in un altro modo?

Answer 1

I commenti allegati alla risposta di @baptiste fanno notare che x e non sono oggetti di tipo "expression" (uno dei nove tipi di vettore di base utilizzati da R). Pertanto, non possono combinare utilizzando c(), come potrebbero se fossero in realtà vettori expression.

Se davvero si vuole combinare gli oggetti della classe "{" (che sono chiamati "oggetti linguaggio composti" in this section della definizione R Lingua) si potrebbe fare qualcosa di simile:

x <- substitute({a;b;c}) 
y <- substitute({d;e;f}) 
class(x) 
# [1] "{" 

as.call(c(as.symbol("{"), c(as.list(x)[-1], as.list(y)[-1]))) 
{ 
    a 
    b 
    c 
    d 
    e 
    f 
} 

Poi, se si lo faremo frequentemente, potresti creare una funzione che combini un insieme arbitrario di oggetti della classe :

myC <- function(...) { 
    ll <- list(...) 
    ll <- lapply(ll, function(X) as.list(X)[-1]) 
    ll <- do.call("c", ll) 
    as.call(c(as.symbol("{"), ll)) 
} 

# Try it out 
myC(x, y, y, y, x) 

Answer 2

Penso che un modo sia per afferrare gli elementi di x e . Sarà sempre il caso che x[1] è "{}", in modo che si possa fare:

x[(length(x)+1):(length(x)+length(y)-1)] <- y[2:(length(y))] 

anche se immagino che ci sia un modo più pulito.

Answer 3

Ignorando l'esempio che hai dato nella tua domanda, per il momento,

x = expression(a,b,c) 
y = expression(d,e,f) 
c(x,y) 

Ora, che tipo di oggetti stai cercando di concatenare?