R Shiny 仪表板 : display progress bar while loading data (fread)

Question

我正在创建一个带有需要一段时间加载的大型数据库的 R Shinydashboard。
是否可以创建一个进度条来显示已读取数据量的信息？ (例如，“读取 Z 行的 X%”)？

Answer 1

在初始加载完成之前，R 无法告诉您数据中有多少行(我认为)。但是，您可以使用内置的 Shiny 进度条向用户发送数据正在加载的消息:

x<-list.files()

data<-data.frame()

withProgress(message = 'Reading Data!', value = 0, {

    for(i in 1:length(x)){
        incProgress(1/length(x), detail = paste("File #", i))
        hold<-read.csv(x[i])
        data<-rbind(data,hold)
    }
})

您可以更换 read.csv()使用您正在使用的任何命令(即 fread("dt.csv", sep=";",header=T, stringsAsFactors=FALSE) )来加载数据。您还可以有意地执行多个大查询以通知循环中的进度条。如果您只加载一个文件，请将消息更改为更合适的内容(显然，循环只会执行一个循环)。