R Shiny withProgress 放在哪里

Question

在我的 Shiny 页面上，有一个读取大日志文件的步骤，需要 25 秒才能加载。我想在用户单击按钮后显示进度条。否则他们可能会认为它在等待时不起作用。

 #ui.R
 #I have an actionButton to activate reading the log file
 actionButton("getLog","Get Log data")

 #server.R
   observeEvent(input$getLog, {
 nL = as.numeric(countLines("/script/cronlog.log"))
 Log = read.table("/script/cronlog.log",sep = ";",skip = nL-1000)
 LogFile = tail(Log,100)
 colnames(LogFile) = "cronlog"
 })

我正在尝试使用 withProgress，但我不知道如何使用它来包装代码。我试过这样的事情：

  observeEvent(input$getLog, {
withProgress(message = 'Calculation in progress',
                              detail = 'This may take a while...', value = 0, {
                   for (i in 1:60) {
                     incProgress(1/60)
                     Sys.sleep(0.25)
                   }
                 })
nL = as.numeric(countLines("/script/cronlog.log"))
Log = read.table("/script/cronlog.log",sep = ";",skip = nL-1000)
LogFile = tail(Log,100)
colnames(LogFile) = "cronlog"
})

确实显示了进度条，但加载进度似乎在进度条之后运行，这使得该过程更长。我想我没有正确包装代码。

有什么建议吗？

提前致谢！

Answer 1

如果您应用的操作不是离散的 withProgress 对您帮助不大。您可以在各个语句之间增加进度条：

nL = as.numeric(countLines("/script/cronlog.log"))
incProgress(1/4)
log = read.table("/script/cronlog.log",sep = ";",skip = nL-1000)
incProgress(1/4)
...

但我怀疑这会产生巨大的影响。另一种方法是将输入文件分成多个块，并在每个文件后读取这些独立递增的计数器。

实际上我会考虑删除以下部分：

nL = as.numeric(countLines("/script/cronlog.log"))

并使用标准系统实用程序仅通过管道传输所需数据：

read.table(pipe("tail -n 1000 /script/cronlog.log"), sep = ";")

或直接用data.table::fread:

fread("tail -n 1000 /script/cronlog.log", sep = ";")

R Shiny withProgress 放在哪里

R Shiny where to place withProgress

r

shiny

shinydashboard