使函数静默返回包括删除txt进度条

Question

你如何获得一个静默返回的功能，包括可能的进度条???

我发现了这个问题：Make a function return silently 并测试了使用invisible()的建议答案，但invisible()不能用于隐藏函数中的文本进度条！

以下示例功能：

myfun <- function(a){
  pb <- txtProgressBar(min=0, max=a, initial=0, style=3)
  foreach(b=1:a)%do%{
    Sys.sleep(1/20)
    setTxtProgressBar(pb, b)
  }
}
###Shows the progress bar
myfunout1 <- invisible(myfun(30))

###Still shows the progress bar
invisible(myfunout1 <- myfun(30))