擴展時間進度條顯示消息

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)