代码之家 › 专栏 › 技术社区 › NelsonGon phoxis

向函数添加进度条

progress-bar function r

NelsonGon phoxis · 技术社区 · 7 年前

我看过几个问题,但找不到不使用循环的解决方案。我已经看过了 here 和 here . 现在,如何添加与此函数完全同时工作的进度条:

prog<-function(){
  print("This is a test")
  Sys.sleep(05)
  setTxtProgressBar()
}

上面是一个虚拟函数,我考虑使用 system.time 要捕获打印命令执行所需的时间,并将其用于进度条。如果不使用for循环,我如何才能使其正常工作? 编辑我试过了,但还是很慢:

prog<-function(y=sort(runif(200)),...){
  pb<-txtProgressBar(...)
  values<-c(0,y,1)
  lapply(values, function(x){
    Sys.sleep(0.5) 
    setTxtProgressBar(pb,x)})
  Sys.sleep(1)
  close(pb)

}

谢谢。

1 回复 | 直到 7 年前

Humpelstielzchen 7 年前

有一个包裹 pbapply ,为应用函数提供进度条,使用:

pblapply(X, FUN, ..., cl = NULL)

就像正常的一样 apply -函数。

这个函数: pblapply(1:10, function(x) {Sys.sleep(02); print(x)}) 给出了这个输出:

|                                                  | 0 % ~calculating  [1] 1
   |+++++                                             | 10% ~18s          [1] 2
   |++++++++++                                        | 20% ~16s          [1] 3
   |+++++++++++++++                                   | 30% ~14s          [1] 4
   |++++++++++++++++++++                              | 40% ~12s          [1] 5
   |+++++++++++++++++++++++++                         | 50% ~10s          [1] 6
   |++++++++++++++++++++++++++++++                    | 60% ~08s          [1] 7
   |+++++++++++++++++++++++++++++++++++               | 70% ~06s          [1] 8
   |++++++++++++++++++++++++++++++++++++++++         | 80% ~04s          [1] 9
   |+++++++++++++++++++++++++++++++++++++++++++++    | 90% ~02s          [1] 10
   |++++++++++++++++++++++++++++++++++++++++++++++++++| 100% elapsed = 20s

相当整洁。我不知道是否有用,但值得一看。

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前