Question

有没有办法延长进度条信息的显示时间？说延长它以便发布约1.5秒？

Answer 1

您可以使用shinyIncubator包中的功能。我根据你的例子将sleep设置为1.5秒，因此当任务完成时，消息将保持可见1.5秒。

rm(list = ls())
library(shiny)
library(shinyIncubator)

server <- function(input, output, session) {
  observe({
    if(input$aButton==0) return(NULL)
    withProgress(session, min=1, max=15, expr={
      for(i in 1:10) {
        setProgress(message = 'Finished...',detail = paste0('Number ',i, ':10'))
        Sys.sleep(0.1)
      }
      Sys.sleep(1.5)
    })
  })
}

ui <- pageWithSidebar(
  headerPanel("Testing"),
  sidebarPanel(actionButton("aButton", "Let's go!"), width=2),
  mainPanel(progressInit())
)

shinyApp(ui = ui, server = server)

延长时间进度条显示消息

1 个答案: