Ausbruch aus der for-Schleife beim ausführen einer Funktion in einer for-Schleife in R

Angenommen, Sie haben die folgende Funktion foo. Wenn ich eine for Schleife, ich möchte es überspringen Sie den Rest der foo wenn foo zunächst wird der Wert des 0. Allerdings break funktioniert nicht, wenn es innerhalb einer Funktion.

Wie es derzeit geschrieben wird, bekomme ich eine Fehlermeldung, no loop to break from, jumping to top level.

Irgendwelche Vorschläge?

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))
}

Danke an alle für die Kommentare. Im Rückblick auf diese, ich sollte geändert haben break zu next da gewesen wäre, mehr im Einklang mit dem, was ich suchte.

InformationsquelleAutor andrewj | 2010-03-25

for-loop r

7

Zwar mein R wissen ist spärlich und das ist drycoded, aber so etwas wie die folgende sollten funktionieren:
```
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)
}
```
Edit: aktualisiert, null-check für die Nachwelt
- j==NULL ist kein Gültiger Vergleich in R (obwohl es vielleicht sein sollte). Sie brauchen, ist.null(j)
InformationsquelleAutor Dusty
4

Als eine Frage der Codierung der Praxis, dies nicht tun. Eine Funktion kann nur verwendet werden, innerhalb einer bestimmten loop ist keine gute Idee. Als eine Angelegenheit von pädagogischen Interesse ist, können Sie bewerten die 'Pause' in die übergeordneten Umwelt.
```
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))
}
```
- Ich denke, es ist Wert, einige Unterstützung hinter dem "Tu das nicht" und "Frage der pädagogischen Interesse" Punkte. 🙂
- Yowser. Ich hiermit hinzufügen von Unterstützung für die "nicht-tun", Punkt! =)
- Ich fast den glauben verloren, ich werde in der Lage sein, um mehrere Fehlertypen in meine höchste Funktion durch die Bereitstellung von Argumenten on.error1 = expression(action_on_error1), on.error2 =... und so weiter. Können später mit Ihnen umgehen, indem tryCatch(lower_lev_fun(), error = function(e) eval(on.error1)). In meinem Fall Eltern.Rahmen(1) entwickeln sich zu eval.parent(parse(text='next'),7), nicht wahr. Es scheint, dass es der einzige Weg, um die Fehlerbehandlung so generisch. Danke!
InformationsquelleAutor Ian Fellows

Dürfen wir ein wenig mehr Kreativität? Könntest du Neufassung Ihres Problems, um die Vorteile der folgenden Verfahren, bei dem die operation basiert auf Vektoren?

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

Wenn Sie jedoch eine tiefere form zugrunde liegt die Frage, und wir müssen Folgen Sie diesem Muster für jetzt, vielleicht zwicken Sie nur ein wenig...

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 
  }
}

InformationsquelleAutor William Doane

2

Einen alternativen Weg zu werfen ist ein Fehler und fangen Sie mit try etwa so:
```
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) }
}
```
- -1, mit Ausnahmen für die Ablaufsteuerung ist in wirklich schlechter form (Sie sind für außergewöhnlich Bedingungen, die nicht dem erwarteten Verhalten).
- Nicht einverstanden. In einigen Sprachen es wäre sogar angezeigt, als idiomatischer Verhalten (z.B. python). So oder so, der Schlüssel ist, dass eine Art von flag muss gesendet werden, der von foo (), ob es eine NULL ist, eine exception, oder was auch immer.
InformationsquelleAutor Leo Alekseyev
0

Ich habe keine Ahnung, wie r funktioniert, aber ich fand die Frage interessant, denn ich konnte lookup eine neue Sprache syntax, so entschuldigen Sie meine Antwort, wenn es Total falsch ist 🙂
```
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)
}
```
- y!=0 soll y==0. a == NULL ist.null(a). als Nächstes sollte brechen.
InformationsquelleAutor Kelsey

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.