if-else vs ifelse con listas

Question

¿Por qué la construcción if-else y la función ifelse() se comportan de manera diferente?

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 } es una estructura de control. Fue diseñado para efectuar las horquillas de programación en lugar de procesar una secuencia. Creo que muchas personas provienen de SPSS o SAS cuyos autores eligieron "IF" para implementar una asignación condicional dentro de sus funciones DATA o TRANSFORM y por lo tanto esperan que R se comporte igual, mientras que R proviene de una tradición de programación. Los bucles for-implícitos de R están incorporados a las muchas funciones vectorizadas (incluido el ifelse).

ifelse toma una expresión que construye un vector de valores lógicos como primer argumento. El segundo y tercer argumentos deben ser vectores de igual longitud y se elige el primero de ellos o el segundo. Esto es similar a los comandos SPSS/SAS IF que tienen un modo implícito de operación by-row.

Answer 2

De la documentación ifelse:

‘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’. 

Por lo que su entrada tiene una longitud de lo que la salida se trunca a la longitud 1.

También puede ver esto ilustrado con un ejemplo más sencillo:

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

Answer 3

Por alguna razón esto está marcado como duplicado de Why does ifelse() return single-value output?

lo tanto, un trabajo en torno a esa pregunta es:

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