标签: shinycssloaders

我有下面闪亮的应用程序，我在其中使用shinycustomLoader和shinycssLoader创建加载消息。我想知道是否有一种方法可以在特定时间后添加多条消息。例如，第一条消息将是"Analyzing"，加载 15 秒后它将被替换为"Almost there"。如果有其他方法或包可以做到这一点，我很高兴知道。

library(shiny)
library(shinycssloaders)
library(shinycustomloader)
ui <- fluidPage(
  actionButton("go", "Go"),
  shinycssloaders::withSpinner(
    plotOutput("plot")
  ),
  withLoader(plotOutput("plot2"),type = "text",loader = "Text")
)

server <- function(input, output) {
  output$plot <- renderPlot({
    input$go
    plot(runif(10000000))
  })
  output$plot2 <- renderPlot({
    input$go
    plot(runif(10000000))
  })
}
shinyApp(ui, server)