[關鍵字]: 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

有趣有趣。

筆記筆記~ funny~