[分享] 在for之中自动显示progress bar(不需改code)

楼主: 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
作者: andrew43 (讨厌有好心推文后删文者)   2014-08-19 23:27:00
有趣有趣。
作者: cywhale (cywhale)   2014-08-21 00:36:00
笔记笔记~ funny~

Links booklink

Contact Us: admin [ a t ] ucptt.com