updateTabsetPanel现在，没有延迟

Question

在下面的最小示例中，请注意，当file.choose()行被注释掉时，代码按预期工作：单击“ 输入”选项卡上的“确定”按钮切换到“ 结果”选项卡。

但是，取消注释file.choose()行和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)