当前位置：网站首页>RNote108---Display the running progress of the R program

RNote108---Display the running progress of the R program

2022-08-05 07:04:00 【51CTO】

I was looking for a displayshinyThe method of the program running progress,However, I only see the progress of the loop execution~Whatever,记录下吧

一、tcltk包

案例：

       
       library(tcltk)  
       
u <- 1:2000  
       
#开启进度条    
       
pb <- tkProgressBar(title="进度",label="已完成 %", min=0, max=100, initial = 0, width = 300)  
       
for(i in u) {  
       
   info<- sprintf("已完成 %d%%", round(i*100/length(u)))  
       
   setTkProgressBar(pb, value = i*100/length(u), title = sprintf("进度 (%s)",info),label = info)  
       
}   
       
#关闭进度条  
       
close(pb)  
      
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

RNote108---显示RThe running progress of the program_sed

参数说明：

       
       tkProgressBar(title = "R progress bar", label = "",
       
              min = 0, max = 1, initial = 0, width = 300)
       
getTkProgressBar(pb)
       
setTkProgressBar(pb, value, title = NULL, label = NULL)
       
## S3 method for class 'tkProgressBar'
       
close(con, ...)
      
1.
2.
3.
4.
5.
6.

函数	说明
tkProgressBar	Displays widgets with labels and progress bars
setTkProgessBar	Used to update values and labels
具体参数设置
title, label	字符串,The title and label of the dialog window are given respectively
min, max	数值型,进度条的范围
initial, value	The initial value of the progress bar
width	Pixels of the progress bar
pb, con	tkProgressBar 的对象

二、progress包

A progress bar can be configured,显示百分比、经过时间、Estimated completion time.

案例：

默认参数

       
       library(progress)
       
pb <- progress_bar$new(total = 100)
       
for (i in 1:100) {
       
  pb$tick()
       
  Sys.sleep(1 / 100)
       
}
       
1.
2.
3.
4.
5.
6.

RNote108---显示RThe running progress of the program_sed_02

Estimated completion time

       
       pb <- progress_bar$new(
       
  format = "  downloading [:bar] :percent eta: :eta",
       
  total = 100, clear = FALSE, width= 60)
       
for (i in 1:100) {
       
  pb$tick()
       
  Sys.sleep(1 / 100)
       
}
       
### 修改部分参数
       
pb <- progress_bar$new(
       
  format = "  完成百分比 [:bar] :percent 剩余时间: :eta",
       
  total = 500, clear = FALSE, width= 60)
       
for (i in 1:500) {
       
  pb$tick()
       
  Sys.sleep(1 / 100)
       
}
      
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

显示下载百分比,and the remaining time to complete

RNote108---显示RThe running progress of the program_sed_03

RNote108---显示RThe running progress of the program_进度条_04

Calculate the execution time

       
       pb <- progress_bar$new(
       
  format = "  完成百分比 [:bar] :percent 执行时间 :elapsed",
       
  total = 500, clear = FALSE, width= 60)
       
for (i in 1:500) {
       
  pb$tick()
       
  Sys.sleep(1 / 100)
       
}
      
1.
2.
3.
4.
5.
6.
7.

RNote108---显示RThe running progress of the program_进度条_05

参数说明：

A function to create a progress bar

函数	说明
progress_bar$new()	创建进度条
参数设置
format	Can be formatted as a progress bar,默认是百分比"[:bar] :percent".The progress bar is in parentheses on the left,Percentages are printed on the right
total	total progress,默认100
width	进度条宽度,The default is the width of the current terminal page-2
stream	The output method of the progress bar,默认stderr(),但是在Rstudio下有bug,Standard output is used in this casestdout .If not in terminal eitherRstudio中输出,Then no progress bar is printed
complete	完成的标识,默认为"="
incomplete	Unfinished logo,默认为"-"
callback	进度条结束时,调用回调函数. The progress bar object itself is passed as a single parameter to the callback function
clear	进度条结束时,是否清除.默认清除
show_after	A progress bar is displayed on the screen after a few seconds,For very short processes,Probably not worth showing at all.默认1/10秒
force	Whether to force the progress bar to be displayed,即使给定的(或默认的)Streams don't seem to support it

Functions that use progress bars

There are two functions that update the progress bar：
progress_bar$tick() 按照1or other specified number to increase the progress of the progress bar
progress_bar$update 按照比例
The progress bar is in the first onetick命令后显示,This may not be desirable for long computations,Because nothing is displayed before the first run.Set at the time of calculation or downloadtick(0)A progress bar can be displayed instantly.

函数	说明
:bar	The progress bar itself
:current	当前进度数
:total	总进度数
:elapsed	Elapsed time in seconds
:eta	Estimated completion time
:percent	完成百分比
:rate	下载速率,每秒字节数
:bytes	显示字节.If you don't know the file size in advance,Can be useful for downloading or file reading
:spin	Displays a spinner,even if the process is there0will also be updated