Shiny应用含NA日期的数据集按日期范围筛选问题

原代码的核心问题是R中NA与任何值比较都会返回NA，导致subset()函数自动排除这些行，进而选择NA作为日期选项时筛选失效。以下是针对四种场景的修复方案，附带完整代码：

修复后的完整代码 #

library(shiny)
library(DT)

# 创建示例数据集
dates <- as.Date(c("2023-01-01", "2023-02-01", NA, "2023-04-01", "2023-05-01"))
names <- c("Alice", "Bob", "Charlie", "David", "Eve")
df <- data.frame(Date = dates, Name = names)

# 生成带友好标签的日期选项：NA显示为"无限制（包含NA日期）"
unique_dates <- sort(unique(df$Date), na.last = TRUE)
date_choices <- as.character(unique_dates)
names(date_choices) <- ifelse(is.na(unique_dates), "无限制（包含NA日期）", as.character(unique_dates))

ui <- fluidPage(
  titlePanel("按日期范围筛选数据"),
  sidebarLayout(
    sidebarPanel(
      selectInput("start_date", "起始日期", choices = date_choices, selected = date_choices[1]),
      selectInput("end_date", "结束日期", choices = date_choices, selected = date_choices[length(date_choices)])
    ),
    mainPanel(
      dataTableOutput("table")
    )
  )
)

server <- function(input, output) {
  output$table <- renderDataTable({
    start <- as.Date(input$start_date)
    end <- as.Date(input$end_date)
    
    # 分四种场景处理筛选逻辑
    if (!is.na(start) && !is.na(end)) {
      # 场景1：未选择NA，仅保留日期在范围内的行（自动排除NA日期）
      subset_df <- df[df$Date >= start & df$Date <= end, ]
    } else if (is.na(start) && is.na(end)) {
      # 场景2：起始和结束都选NA，显示所有行（包含NA日期）
      subset_df <- df
    } else if (is.na(start)) {
      # 场景3：仅起始选NA，保留日期<=结束日期 或 日期为NA的行
      subset_df <- df[df$Date <= end | is.na(df$Date), ]
    } else {
      # 场景4：仅结束选NA，保留日期>=起始日期 或 日期为NA的行
      subset_df <- df[df$Date >= start | is.na(df$Date), ]
    }
    
    datatable(subset_df)
  })
}

shinyApp(ui = ui, server = server)

关键逻辑说明 #

1. 场景1（未选择NA）：仅筛选Date在起始和结束日期之间的行，NA日期的行因比较结果为NA被自动排除。
2. 场景2（同时选起始和结束为NA）：直接返回完整数据集，包含所有行（包括NA日期的行）。
3. 场景3（仅起始选NA）：放开起始限制，保留所有Date小于等于结束日期的行，同时包含NA日期的行。
4. 场景4（仅结束选NA）：放开结束限制，保留所有Date大于等于起始日期的行，同时包含NA日期的行。

另外，代码中对NA选项添加了友好标签，避免用户看到默认的<NA>，提升交互体验。

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