点击Run按钮时Shiny应用崩溃——仅在特定标签页启动时触发

我碰到过不少类似的情况——Shiny默认会懒加载未激活标签页的UI组件，这就导致你停在默认标签页直接点Run时，前两个标签页里的RHandsontable还没被初始化，对应的input对象要么不存在，要么是空值，自然就触发了do.call的参数错误。下面给你几个靠谱的解决思路，按需选就行：

1. 提前初始化表格的默认数据 #

不管用户有没有切到对应标签页，先在服务器端给这两个可编辑表格准备好合法的初始数据结构，这样就算表格没被渲染，计算逻辑也能拿到有效的参数：

server <- function(input, output, session) {
  # 用reactiveVal存表格数据，初始给个空数据框
  rv_table1 <- reactiveVal(data.frame(列1 = numeric(0), 列2 = character(0)))
  rv_table2 <- reactiveVal(data.frame(列A = numeric(0), 列B = logical(0)))
  
  # 渲染第一个可编辑表格
  output$table1 <- renderRHandsontable({
    rhandsontable(rv_table1(), editable = TRUE)
  })
  
  # 监听表格编辑，更新reactiveVal
  observeEvent(input$table1, {
    rv_table1(hot_to_r(input$table1))
  })
  
  # 第二个表格照葫芦画瓢...
  
  # Run按钮的触发逻辑
  observeEvent(input$run_btn, {
    # 现在可以放心用rv_table1()和rv_table2()，它们肯定有合法值
    calculation_result <- do.call(你的计算函数, list(
      table1_data = rv_table1(),
      table2_data = rv_table2()
    ))
    
    # 渲染后三个标签页的结果表格...
  })
}

2. 强制渲染未激活标签页的UI #

Shiny默认会暂停未显示标签页的输出渲染，我们可以手动关掉这个设置，让不管哪个标签页，表格都能提前初始化：

server <- function(input, output, session) {
  # 渲染第一个表格
  output$table1 <- renderRHandsontable({
    rhandsontable(你的初始数据, editable = TRUE)
  })
  # 强制不暂停渲染，即使标签页没激活
  outputOptions(output, "table1", suspendWhenHidden = FALSE)
  
  # 第二个表格同样设置
  output$table2 <- renderRHandsontable({
    rhandsontable(你的第二个初始数据, editable = TRUE)
  })
  outputOptions(output, "table2", suspendWhenHidden = FALSE)
  
  # Run按钮逻辑...
}

这样input$table1和input$table2在应用启动时就会存在，不会出现找不到参数的情况。

3. 在Run逻辑里加参数校验，给用户友好提示 #

与其让应用崩溃，不如提前检查依赖的输入是否有效，不行就给用户弹个提示：

observeEvent(input$run_btn, {
  # 先检查表格输入是否存在
  if (is.null(input$table1) || is.null(input$table2)) {
    showNotification("麻烦先切换到前两个标签页，让表格加载完成哦！", type = "error")
    return() # 直接退出，不执行后续计算
  }
  
  # 把RHandsontable转成数据框
  table1_data <- hot_to_r(input$table1)
  table2_data <- hot_to_r(input$table2)
  
  # 再检查数据是否非空
  if (nrow(table1_data) == 0 || nrow(table2_data) == 0) {
    showNotification("请先在表格里输入数据再点Run呀！", type = "warning")
    return()
  }
  
  # 一切正常，执行计算
  calculation_result <- do.call(你的计算函数, list(table1_data, table2_data))
  # 渲染结果表格...
})

这个方法体验最好，用户不会一脸懵地看着应用崩溃。

4. 把带表格的标签页设为默认激活 #

如果业务允许，直接让应用启动时默认打开第一个带表格的标签页，这样用户进来就会自动加载表格：

ui <- navbarPage(
  "你的应用名称",
  tabPanel("输入表格1", rhandsontableOutput("table1")),
  tabPanel("输入表格2", rhandsontableOutput("table2")),
  tabPanel("结果1", dataTableOutput("result1")),
  tabPanel("结果2", dataTableOutput("result2")),
  tabPanel("结果3", dataTableOutput("result3")),
  # 默认选中第一个输入表格标签页
  selected = "输入表格1"
)

这样从根源上避免了用户在未加载表格的标签页点击Run的情况。

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