如何在Shiny中读取CSV文件并实现按日期范围筛选统计功能？

• UI属于静态渲染逻辑，加载阶段服务端还未运行、也没有用户上传的文件数据，你直接在sliderInput的参数里调用data()[, c('dateCreated')]，此时data()根本不存在，自然无法读取维度，直接抛出错误。
• 服务端的响应式变量读取逻辑存在多处错误：你定义的input_file响应式函数没有实际读取CSV文件，空值时返回空字符串而非NULL，且后续直接在服务端顶层作用域赋值data <- input_file()，没有放在响应式上下文里，无法随用户上传、参数选择动态更新。
• 未对CSV读取的dateCreated字段做日期类型转换，字符串格式无法直接用于日期范围比较、滑块范围赋值。
• 缺少日期范围滑块的动态更新逻辑，滑块的可选范围必须在用户上传文件、获取到全部日期区间后才能确定，不能在UI初始化阶段硬写。

library(shiny)
library(DT)
library(dplyr)
library(lubridate)

ui <- fluidPage(
  titlePanel("Case Referrals"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "Select a CSV file", accept = ".csv"),
      # 滑块初始先放占位值，后续上传文件后动态更新
      sliderInput("period", "Time period observed:",
                  min = as.Date("2020-01-01"), max = as.Date("2024-01-01"),
                  value = c(as.Date("2020-01-01"), as.Date("2024-01-01")))
    ),
    mainPanel(
      h4("按日期汇总订单计数"),
      DT::dataTableOutput("table")
    )
  )
)

server <- function(input, output, session) {
  # 读取上传的原始文件，转日期格式
  raw_data <- reactive({
    req(input$file)
    df <- read.csv(input$file$datapath)
    # 转换日期格式，可根据你实际的日期格式调整format参数
    df$dateCreated <- as.Date(df$dateCreated, format = "%Y-%m-%d")
    return(df)
  })
  
  # 文件上传后自动更新滑块的日期范围
  observeEvent(raw_data(), {
    date_range <- range(raw_data()$dateCreated)
    updateSliderInput(session, "period",
                      min = date_range[1],
                      max = date_range[2],
                      value = date_range)
  })
  
  # 按选择的日期范围过滤，汇总计数
  summary_data <- reactive({
    req(raw_data())
    filtered <- filter(raw_data(), 
                       dateCreated >= input$period[1],
                       dateCreated <= input$period[2])
    # 按日期汇总订单数
    filtered %>%
      group_by(dateCreated) %>%
      summarise(订单计数 = n(), .groups = "drop")
  })
  
  output$table <- DT::renderDataTable({
    summary_data()
  })
}

shinyApp(ui = ui, server = server)

如果你的CSV里dateCreated的格式不是年-月-日，可以调整as.Date里的format参数，比如%m/%d/%Y对应月/日/年格式。

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