R индикатор выполнения для чтения нескольких файлов CSV (TSV)

Question

есть ли способ отобразить индикатор выполнения для импорта нескольких CSV-файлов.Вот код импорта: Список всех полей для импорта:

temp <- list.files(pattern="*\\.tsv$") 
temp

Будут импортированы определенные столбцы:

test_data <- lapply(temp,function(x){
  read.csv(file = x,
           sep ="\t",
           fill = TRUE,
           quote='', 
           header = FALSE 
  )[ ,c(287, 288, 289, 290, 291, 292, 293, 304, 370, 661, 662, 812, 813,994, 995, 1002)]
}
)

Как я могу отслеживать текущее состояние процесса?Я только что нашел несколько советов для циклов, но не для импорта файлов

Answer 1

Этого можно добиться с помощью библиотеки progress:

library(progress)                                                      # add
temp <- list.files(pattern="*\\.tsv$") 
pb <- progress_bar$new(format = " progress [:bar] :percent eta: :eta", # add
                       total = length(temp), clear = FALSE, width= 60) # add
test_data <- lapply(temp,function(x){
  pb$tick()                                                            # add
  read.csv(file = x,
           sep ="\t",
           fill = TRUE,
           quote='', 
           header = FALSE 
  )[ ,c(287, 288, 289, 290, 291, 292, 293, 304, 370, 661, 662, 812, 813,994, 995, 1002)]
})

Я пометил строки, которые нужно добавить, комментарием # add.Есть также встроенная строка прогресса R, которую вы можете использовать, но я считаю, что версия progress более читабельна, настраиваема и проста в использовании.