R'de ifade nesnelerini nasıl daraltır/birleştiririm?

Question

I birleştirme ile bir R expression nesne oluşturmak düşünün:

x = c(expression({ 
     a + b 
     b + c 
     }), 
     expression({ 
     a + 1 
     b + 1 
     })) 

Bu uzunluk-2 ifadesi nesne ile sonuçlanır:

> x 
expression({ 
    a + b 
    b + c 
}, { 
    a + 1 
    b + 1 
}) 

nasıl tek bir ifadeye bu çökme/dönüştürmek?

expression({ 
    a + b 
    b + c 
    a + 1 
    b + 1 
}) 

Answer 1

x = c(expression({ 
    a + b 
    b + c 
    }), 
    expression({ 
    a + 1 
    b + 1 
    })) 

collapsit = function(x) { 
    if(!all(sapply(x, class) == "{")) 
     stop("I can't collapse non-bracket expressions for you, dawg") 

    stuff = unlist(lapply(x[-1], function(y) as.list(y[-1]))) 
    x[[1]][length(x[[1]])+1:length(stuff)] = stuff 
    x[1] 
} 

res = collapsit(x) 
## expression({ 
##  a + b 
##  b + c 
##  a + 1 
##  b + 1 
## }) 

Answer 2

Bu istenen sonuçları üretir ve muhtemelen reduce veya daha girdi almaya kadar ölçekli olabilir: Yani ben bu yaptıktan eşdeğer almak için x gerçekleştirebileceğiniz bir operasyon arıyorum olduğunu bloklarýnýn. Bu, bir çözümün iyi iyi olduğundan emin değilim, çünkü bu genellikle ifadelerden yararlanmıyorum.

c_exp = function(x1, x2) { 
    parse(text = c("{", 
        tail(head(deparse(x1), -1), -1), 
        head(tail(deparse(x2), -1), -1), 
        "}")) 
} 

x1 = expression({a+b}) 
x2 = expression({a + 1}) 
c_exp(x1, x2) 
# expression({ 
#  a + b 
#  a + 1 
# }) 

Answer 3

Bu iş gibi görünüyor

, her ifadesi Bu x + y ifadesinde olduğu gibi parantez içinde olmak üzere her ifadeyi gerektirmez {

as.expression(sapply(x, function(y) as.list(y[-1]))) 
# expression(a + b, b + c, a + 1, b + 1) 

Answer 4

ile başlamalıdır:

x = c(expression({ 
    a + b 
    b + c 
    }), 
expression({ 
    a + 1 
    b + 1 
    }), 
expression(x + y)) 

# expression({ 
# a + b 
# b + c 
# }, { 
# a + 1 
# b + 1 
# }, x + y) 

s <- strsplit(paste0(as.character(x), collapse = ''), '[\n{}]')[[1]] 
x <- paste0(Filter(nzchar, gsub('^\\s+|\\s+$','', s)), collapse = '\n') 
parse(text = sprintf('{\n%s\n}', x)) 

# expression({ 
# a + b 
# b + c 
# a + 1 
# b + 1 
# x + y 
# })