updateTabsetPanel сейчас, без задержки

Question

В следующем минимальном примере, обратите внимание, что в то время как линия file.choose() закомментирована, код работает, как ожидалось: нажав кнопку OK на Input закладок переключателей на Результаты табла.

Однако раскоментируйте строку file.choose() и функцию updateTabsetPanel() больше не работает. Есть ли способ, чтобы вкладка изменилась на экране до начала file.choose()?

ui <- fluidPage(fluidRow(
     tabsetPanel(id="main", 
      tabPanel("Input", actionButton("okButton", "OK")), 
      tabPanel("Results", h3(textOutput("results"))) 
     ))) 

server <-function(input, output, session) { 

    output$results = renderText("Results Tab") 

    observeEvent(input$okButton, { 
     updateTabsetPanel(session, "main", "Results") 
    # file.choose() 
    }) 

} 

shinyApp(ui = ui, server = server) 

Answer 1

Вы можете сделать это в два этапа: 1. Переключить вкладку; 2. На основе события переключения вкладок откройте окно выбора файла.

ui <- fluidPage(fluidRow(
    tabsetPanel(id="main", 
       tabPanel("Input", actionButton("okButton", "OK")), 
       tabPanel("Results", h3(textOutput("results"))) 
))) 

server <-function(input, output, session) { 

    output$results = renderText("Results Tab") 

    observeEvent(input$okButton, { 
    updateTabsetPanel(session, "main", "Results") 
    }) 

    observeEvent(input$main, { 
    if (input$main == "Results") { 
     file.choose() 
    } 
    }) 

} 

shinyApp(ui = ui, server = server)