podczas przerwy w trybie TRUE + w środowisku podrzędnym

Question

Mam problem z uruchomieniem pętli while(TRUE). Ten przykład myślę trafia w sedno problemu:

l <- list(x = 5) 

while (TRUE){ 
    with(l, if (x > 100) break else l$x <<- x + 5) 
} 

która biegnie z błędem:

Error in eval(expr, envir, enclos) :

no loop for break/next, jumping to top level

dziwne, pętla while wydaje się być wykonana pomyślnie:

l 
# $x 
# [1] 105 

To pojawia się problem: wysyłam oświadczenie break w pod-środowisku, ponieważ poniższe działa zgodnie z oczekiwaniami bez błędu:

x = 5 

while(TRUE){ 
    if (x > 100) break else x <<- x+5 
} 

Myśląc, że to tylko kwestia środowiska, próbowałem również zastąpienie break z eval(break, parent.env()) i eval(break, parent.frame()), bezskutecznie.

Jak mogę zatrzymać ten błąd?

---

Przypuszczam sessionInfo() mogą być istotne:

R version 3.2.4 (2016-03-10) 
Platform: x86_64-pc-linux-gnu (64-bit) 
Running under: Ubuntu 14.04.3 LTS 

locale: 
[1] LC_CTYPE=en_US.UTF-8  LC_NUMERIC=C    LC_TIME=en_US.UTF-8  LC_COLLATE=en_US.UTF-8  
[5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8 LC_PAPER=en_US.UTF-8  LC_NAME=C     
[9] LC_ADDRESS=C    LC_TELEPHONE=C    LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C  

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] readxl_0.1.0.9000 data.table_1.9.6 haven_0.2.0  

loaded via a namespace (and not attached): 
[1] rsconnect_0.4.1.11 tools_3.2.4  Rcpp_0.12.1  chron_2.3-47  

Answer 1

wariant @ Propozycja Vongo polega na przechwytywaniu środowiska, w którym ma nastąpić ewaluacja, z environment(), a następnie użyj evalq(), aby uzyskać break ocenione we właściwym miejscu.

l <- list(x = 5) 
while (TRUE){ 
    env <- environment() 
    with(l, if (x > 100) evalq(break, env) else l$x <<- x + 5) 
} 

Dzięki temu unika się parsowania łańcucha tekstowego i wydaje się z tego powodu mniej hackowy. Ocena w przechwyconym środowisku pozwala na uzyskanie pętli na dowolnym poziomie w kodzie R, a nie tylko w .GlobalEnv. Jest to podobne do nielokalnego skoku (inaczej GOTO), co utrudnia rozumowanie kodu.

Answer 2

Może nie rozumiem wszystkie udziały problemu, ale można spróbować:

l <- list(x = 5) 
while (TRUE){ 
    with(l, if (x > 100) eval(parse(text="break"), envir=.GlobalEnv) else l$x <<- x + 5) 
}