在Shiny应用程序中显示进度栏

Question

我正在尝试在Shiny应用程序中显示进度栏或消息。我有app.R和helpcode.R

app.r

ui <- dashboardPage(
    column(width =3, numericInput('days','Days less than','15', width = 100)),
    submitButton("Submit")
    )

helpcode.R

new_function(input){
t_1 <- read.table("data/data_1.txt",sep="\t",skip=1)
  t_2 <- read.table("data/data_2.txt",sep="\t",skip=1)
}

我想显示状态消息，例如- 函数读取data1时加载数据1 通过功能

读取data2时加载数据2

我不知道该怎么做。

Answer 1

您可以在withProgress内使用new_function元素

new_function(input) {
  withProgress(message = "Loading Data 1", value = 1, {
    t_1 <- read.table("data/data_1.txt",sep="\t",skip=1)
  })
  withProgress(message = "Loading Data 2", value = 1, {
    t_2 <- read.table("data/data_2.txt",sep="\t",skip=1)
  })
}