楼主:
Wush978 (拒看低质媒体)
2014-08-19 23:00:12[关键字]: for, progress bar
原本的版本会无法编辑global environment的物件,所以我改成这样:
`for` <- function(a, b, expr) {
pb <- txtProgressBar(max = length(b), style = 3)
base::`for`(.i, seq_along(b), {
assign(as.character(substitute(a)), b[.i], envir = globalenv())
eval(substitute(expr), globalenv())
setTxtProgressBar(pb, .i)
})
close(pb)
}
test script:
x <- 0
for(i in 1:10) x <- x + 1
x