08_02. loading bar (로딩바) in r

install.packages('progress')
library(progress)

pb <- progress_bar$new(format = "  loading :what [:bar] :percent eta: :eta",
                       clear = FALSE, total = 1000, width = 60)

for(i in seq(1000)){
  
  pb$tick(tokens = list(what = "name   "))
  Sys.sleep(0.01)
}