Shiny应用如何实现未完成指定数据上传时禁止切换其他tabPanel

完全使用Shiny原生能力即可完成需求，无需引入额外的前端脚本，整体逻辑分为两部分：

• 利用带id的tabsetPanel可以实时获取当前激活的标签页位置
• 实时追踪两个文件上传控件的状态，只要任意一个文件未上传，就不允许用户停留在非上传页，一旦检测到用户停留在非上传页但未完成上传，就强制切回上传页并弹出提示
• 两个文件都上传完成后，自动放行所有标签页的切换操作

完整可运行代码 #

library(shiny)

# UI部分和你现有代码结构完全一致
ui <- fluidPage(
  titlePanel("Tabsets"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      tabsetPanel( 
        id = "tabset",
        tabPanel("Upload data", value="tab0",
                 fileInput("file1", "Choose CSV File",
                           multiple = TRUE,
                           accept = c("text/csv",
                                      "text/comma-separated-values,text/plain",
                                      ".csv")),
                 fileInput("file2", "Choose CSV File",
                           multiple = TRUE,
                           accept = c("text/csv",
                                      "text/comma-separated-values,text/plain",
                                      ".csv"))
        ),
        tabPanel("Resource Allocation", value="tab1"),
        tabPanel("Time Series", value="tab2")
      )
    )
  )
)

server = function(input, output, session) {
  # 全局状态检查：标签页位置变化、上传文件状态变化时自动触发
  observe({
    current_tab <- input$tabset
    # 校验两个文件是否都已上传完成
    upload_valid <- !is.null(input$file1) && !is.null(input$file2)
    # 未完成上传时，不允许停留在非上传页
    if (current_tab != "tab0" && !upload_valid) {
      updateTabsetPanel(session, "tabset", selected = "tab0")
      showModal(modalDialog(
        title = "操作提示",
        "请先在「Upload data」页面完成两个CSV文件的上传，再访问其他功能模块",
        easyClose = TRUE,
        footer = NULL
      ))
    }
  })
}

shinyApp(ui, server)

适配性说明 #

• 这套逻辑会覆盖所有边界场景：包括用户未传文件就点击其他tab、用户在其他tab删除已上传的文件、用户传完文件后自由切换等情况
• 如果后续需要增加更复杂的文件校验规则（比如检查文件大小、校验CSV列名、判断文件内容合法性），只需要修改upload_valid变量对应的判断逻辑即可，拦截部分的代码不需要做任何调整

内容的提问来源于stack exchange，提问作者firmo23