# NOT RUN {
nms <- c("Quercus", "Sasdsfasdf")
x <- progressor$new(items = nms)
x
x$prog_start()
x$completed(nms[1], "found")
x$prog_found()
x$completed(nms[2], "not found")
x$prog_not_found()
x$prog_summary()
# suppress cli::cat_line
x <- progressor$new(items = nms, suppress = TRUE)
x$prog_summary()
# }
Run the code above in your browser using DataCamp Workspace