if-else vs ifelse z listami

Question

Dlaczego konstrukcja if-else i funkcja ifelse() zachowują się inaczej?

mylist <- list(list(a=1, b=2), list(x=10, y=20)) 

l1 <- ifelse(sum(sapply(mylist, class) != "list")==0, mylist, list(mylist)) 

l2 <- 
if(sum(sapply(mylist, class) != "list") == 0){ # T: all list elements are lists 
    mylist 
} else { 
    list(mylist) 
} 

all.equal(l1,l2) 
# [1] "Length mismatch: comparison on first 1 components" 

Answer 1

if ( cond) { yes } else { no } to struktura kontrolna. Został zaprojektowany tak, by efektować widły programistyczne, a nie przetwarzać sekwencję. Myślę, że wiele osób pochodzi z SPSS lub SAS, których autorzy wybrali "JEŻELI" do realizacji warunkowego przypisania w ramach swoich funkcji DATA lub TRANSFORM i dlatego oczekują, że R zachowa się tak samo, podczas gdy R pochodzi z tradycji programowania. Niejawne pętle for R są wbudowane w wiele funkcji wektorowych (w tym ifelse).

ifelse przyjmuje wyrażenie, które tworzy wektor wartości logicznych jako pierwszy argument. Drugi i trzeci argument muszą być wektorami o równej długości i albo pierwszy, albo drugi zostanie wybrany. Jest to podobne do poleceń SPSS/SAS IF, które mają domyślny tryb działania w wierszu.

Answer 2

Z ifelse dokumentacji:

‘ifelse’ returns a value with the same shape as ‘test’ which is 
filled with elements selected from either ‘yes’ or ‘no’ depending 
on whether the element of ‘test’ is ‘TRUE’ or ‘FALSE’. 

Więc wejście ma długość jednego więc wyjście jest obcinany do długości 1.

Można również zobaczyć ilustrowany bardziej prosty przykład:

ifelse(TRUE, c(1, 3), 7) 
# [1] 1 

Answer 3

Z jakiegoś powodu ten jest oznaczony jako duplikat Why does ifelse() return single-value output?

Więc obejść na to pytanie brzmi:

a=3 
yo <- ifelse(a==1, 1, list(c(1,2))) 
yo[[1]]