Terminal Progress Bars (tqdm in r)

#https://cran.r-project.org/web/packages/progress/progress.pdf
pacman::p_load(progress)
## Basic
pb <- progress_bar$new(total=100)
for (i in 1:100) {
\tpb$tick()
\tSys.sleep(0.1)
}

from tqdm import tqdm
import time

total = tqdm(range(100))
for n in total:
  time.sleep(0.1)

표현방법에 따라 format 설정

[============================================================] 100%

## ETA (estimated time of arrival!)
pb <- progress_bar$new(total=100, width=60, clear=F,
\tformat = " Downloading [:bar] :percent ETA= :eta")
for (i in 1:100) { pb$tick(); Sys.sleep(0.1)}

 Downloading [===========================>----] 80% ETA=  2s

## Elapsed time with Spinner
pb <- progress_bar$new(total=100, width=60, clear=F,
\tformat = " (:spin) [:bar] :percent IN :elapsed")
for (i in 1:100) { pb$tick(); Sys.sleep(0.1)}

 (/) [====================================>----]  90% IN  9s