如何用radioButtons()在RShiny中导入不同数据集并解决响应式错误

错误原因 #

直接在server函数顶层判断input$dist违反了Shiny的响应式规则：响应式输入值（如input$dist）只能在响应式消费者（比如reactive()、renderTable()这类函数内部）访问，否则会触发Can't access reactive value 'dist' outside of reactive consumer错误。同时原代码的顶层if-else无法响应输入变化，数据不会动态更新。

修正方案 #

把数据获取和子集逻辑封装到响应式函数中，让所有UI渲染直接依赖响应式数据，确保输入变化时自动更新内容：

library(shiny)

ui <- fluidPage(
  # 应用标题
  titlePanel("test"),
  
  sidebarLayout(
    sidebarPanel(
      radioButtons("dist", "数据类型:",
                   c("最新数据" = "most_recent",
                     "历史数据" = "historical"), selected = "most_recent"),
      # 优化：仅选择最新数据时显示日期选择器
      conditionalPanel(
        condition = "input.dist == 'most_recent'",
        dateInput("select_date", "选择日期:", value = Sys.Date())
      )
    ),
    
    mainPanel(tabsetPanel(
      tabPanel("Up", 
               h3(helpText("数量")),
               tableOutput("table_up")),
      tabPanel("Down", 
               h3(helpText("数量")),
               tableOutput("table_down")),
      tabPanel("周度盈亏",
               h3(helpText("年度周数")),
               tableOutput("table_week")),
      tabPanel("月度盈亏",
               h3(helpText("年度月份")),
               tableOutput("table_month"))
    ))
  )
)

server <- function(input, output, session) {
  
  # 响应式获取实时数据
  real_time_data <- reactive({
    real_time_function_data_aggregation()
  })
  
  # 响应式生成数据子集：根据单选按钮选择切换数据来源
  real_time_data_subset <- reactive({
    if(input$dist == "most_recent"){
      subset(real_time_data(), date == input$select_date)
    } else {
      historical_time_data()
    }
  })
  
  # 盈亏数据（若需动态更新可同样封装为reactive）
  week_data <- get_pnl_data(type = "week")
  month_data <- get_pnl_data(type = "month")
  
  # 渲染对应表格
  output$table_up <- renderTable({
    real_time_data_subset()[c("time_character","Up")]
  })
  
  output$table_down <- renderTable({
    real_time_data_subset()[c("time_character","Down")]
  })
  
  output$table_week <- renderTable(week_data, digits = 0)
  output$table_month <- renderTable(month_data, digits = 0)
}

shinyApp(ui, server)

关键改进点 #

1. 将数据子集逻辑放入reactive()函数，确保能响应input$dist和input$select_date的变化。
2. 用conditionalPanel优化交互：仅选择「最新数据」时显示日期选择器，避免无效输入。
3. 移除原代码中语法错误的plot_up() <-写法，直接在renderTable()中完成数据筛选。
4. 所有表格渲染直接依赖响应式数据，保证输入变化时自动刷新内容。

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