Я создаю функцию для использования другим пользователем. Поскольку функция длинная, я хотел бы создать индикатор выполнения, основанный на количестве секунд (оцененных мной), чтобы дать пользователю уверенность в том, что код работает. Мое предложение (основываясь на ответе, найденном на stakoverflow). Проблема в том, что я не знаю, как преобразовать это «200000» в секунды. Любая помощь?
library(progress)
total <- 200000
# create progress bar
pb <- txtProgressBar(min = 0, max = total, style = 3)
for(i in 1:total){
# update progress bar
setTxtProgressBar(pb, i)
}
close(pb)