ruptura del bucle for cuando se ejecuta una función dentro de un bucle for en R

Question

Suponga que tiene la siguiente función foo. Cuando estoy ejecutando un bucle for, me gustaría omitir el resto de foo cuando foo inicialmente devuelve el valor de 0. Sin embargo, break no funciona cuando está dentro de una función.

Como está actualmente escrito, recibo un mensaje de error, no loop to break from, jumping to top level.

¿Alguna sugerencia?

foo <- function(x) { 
    y <- x-2 
    if (y==0) {break} # how do I tell the for loop to skip this 
    z <- y + 100 
    z 
} 


for (i in 1:3) { 
    print(foo(i)) 
} 

Answer 1

Es cierto que mi conocimiento R es escasa y esto se drycoded, sino algo así como lo siguiente debería funcionar:

foo <- function(x) { 
    y <- x-2 
    if (y==0) {return(NULL)} # return NULL then check for it 
    z <- y + 100 
    z 
} 

for (i in 1:3) { 
    j <- foo(i) 
    if(is.null(j)) {break} 
    print(j) 
} 

Editar: cheque nulo actualizado para la posteridad

Answer 2

no tengo idea cómo funciona r pero encontré la pregunta interesante porque podía buscar la sintaxis de un nuevo idioma, así que perdona mi respuesta si es totalmente errónea :)

foo <- function(x) { 
    y <- x-2 
    if (y!=0) z <- NULL else z <- y + 100 
    z 
} 


for (i in 1:3) 
{ 
    a <- foo(i) 
    if (a == NULL) {next} 
    print(a) 
} 

Answer 3

Una forma alternativa es tirar un error y atraparla con try, así:

foo <- function(x) { 
    y <- x-2 
    if (y==0) {stop("y==0")} 
    z <- y + 100 
    z 
} 

try(for (i in 0:5) { 
     print(foo(i)) 
}, silent=TRUE) 

## or use tryCatch: 
for (i in 0:5) { 
    bar <- tryCatch(foo(i),error=function(e) NA) 
    if(is.na(bar)){ break } else { print(bar) } 
} 

Answer 4

Como cuestión de práctica de codificación, no hagas esto. Tener una función que solo se puede usar dentro de un bucle en particular no es una gran idea. Como cuestión de interés educativo, puede evaluar el "descanso" en el entorno principal.

foo <- function(x) { 
    y <- x-2 
    if (y==0) {eval.parent(parse(text="break"),1)} 
    z <- y + 100 
    z 
} 



for (i in 0:3) { 
    print(foo(i)) 
} 

Answer 5

¿Se nos permite ser un poco más creativos? ¿Podría reformular su problema para aprovechar el siguiente enfoque, donde la operación se basa en vectores?

x <- 1:3 
y <- x[x-2 < 0] - 2 + 100 # I'm leaving the "- 2" separate to highlight the parallel to your code 
y 

Si, sin embargo, una forma más profunda subyace la cuestión y tenemos que seguir este patrón, por ahora, tal vez retocarlo un poco ...

foo <- function(x) { 
    y <- x - 2 
    if (y != 0) { 
    z <- y + 100 
    z 
    } # else implicitly return value is NULL 
} 

for (i in 1:3) { 
    if (is.numeric(result <- foo(i))) { 
    print(result) 
    } else { 
    break 
    } 
}