R Shiny多选筛选场景下longer object length报错解决方案咨询

核心错误点 #

• 第一类警告：你为selectInput开启了multiple=TRUE，input$var_1和input$var_2返回的是多值向量，用==和长度更长的df$var_1/df$var_2做逐元素比较时必然出现长度不匹配问题，需替换为%in%匹配逻辑
• 第二类逻辑错误：你在observe块内定义的x、productdata是局部变量，仅在当前observe块内有效，reactive块根本无法读取这两个变量的值，导致筛选逻辑失效、输出无更新，需要把变量定义改到reactive块内，或者改为reactive变量

修复后的完整代码 #

library(shiny)
library(dplyr)
library(DT)
library(tidyr)

# 测试数据 这里替换为你实际的test_2_filtros即可
df <- data.frame(
  var_1 = rep(c("red", "blue", "green"), each = 3),
  var_2 = rep(c("table1", "table2", "table3"), each = 3),
  var_3 = rep(c("column1", "column2", "column3"), each = 3)
)

ui <- fluidPage(
  headerPanel(title = "Shiny App Conditional Filter Demo"),
  sidebarLayout(
    sidebarPanel(
      selectInput("var_1","Select a category",choices = unique(df$var_1), multiple = TRUE, selected= "red"),
      selectInput("var_2","Select a table",unique(df$var_2), multiple = TRUE, selected= "table1")
    ),
    mainPanel(DT::dataTableOutput("mytable1"))
  )
)

server <- function(session,input,output) {
  # 联动更新var_2的选项
  observe({
    req(input$var_1)
    x <- df$var_2[df$var_1 %in% input$var_1]
    updateSelectInput(session,"var_2","Select a table",choices = unique(x), selected= unique(x)[1])
  })
  
  result <- reactive({
    req(input$var_1, input$var_2)
    # 直接在reactive内完成筛选，不需要额外定义中间变量
    tmp <- df %>% 
      filter(var_1 %in% input$var_1, var_2 %in% input$var_2)
    
    tmp %>% 
      dplyr::mutate(n = "Yes") %>%
      mutate(row_num = 1:n()) %>%
      tidyr::pivot_wider(names_from = var_3, values_from = n, values_fill = list(n = "No")) %>%
      select(-row_num)
  })
  
  output$mytable1 <- DT::renderDataTable({
    mytable <- DT::datatable(result(), filter= 'top',
                  options = list(order=list(1,'asc'), dom='t', pageLength= 100, autoWidth = TRUE),
                  rownames = FALSE)
    
    formatStyle(mytable, columns = NULL, fontWeight = styleEqual(c('No', 'Yes'), c('normal', 'bold')))
  })
}

shinyApp(ui, server)

额外优化说明 #

• 增加了req()校验，避免输入为空时触发无意义的运算和警告
• 去掉了冗余的productdata定义，直接在reactive内完成筛选逻辑，减少不必要的响应依赖
• 联动更新var_2时默认选中第一个可选值，避免出现选中值不在可选列表内的异常

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