如何让Shiny的dateRangeInput仅支持年份选择

针对你的需求，这里提供两种实用方案，彻底避免用户选择月份和日期：

方案一：使用年份下拉选择框（推荐，适配年度数据场景） #

直接替换dateRangeInput为两个年份选择器，完全跳过月份和日期的选择步骤，逻辑更清晰：

library(shiny)
library(dplyr)
library(lubridate)
library(ggplot2)

# 定义年份范围
year_min <- 1990
year_max <- 2022

ui <- fluidPage(
  h4("选择年份范围"),
  div(
    style = "display: flex; gap: 10px; align-items: center;",
    selectInput(
      inputId = "year_start",
      label = "起始年份",
      choices = seq(year_max, year_min, by = -1),
      selected = 1990
    ),
    span("-"),
    selectInput(
      inputId = "year_end",
      label = "结束年份",
      choices = seq(year_max, year_min, by = -1),
      selected = 2005
    )
  ),
  
  actionButton(inputId = "apply_analysis", label = "Aplicar", icon = icon("play")),
  plotOutput("myPlot")
)

server <- function(input, output) {
  out <- eventReactive(input$apply_analysis, {
    # 这里假设managers是你的数据框，根据实际情况调整
    managers %>%
      data.frame() %>%
      rownames_to_column("Date") %>%
      mutate(year = year(Date)) %>%
      filter(year >= input$year_start & year <= input$year_end)
  })
  
  output$myPlot <- renderPlot({
    out() %>%
      ggplot(aes(x = year, y = HAM1)) +
      geom_line() +
      theme_bw()
  })
}

shinyApp(ui = ui, server = server)

方案二：修改dateRangeInput的JS行为（保留原组件样式） #

如果希望保留dateRangeInput的外观，通过JavaScript强制用户只能选择年份，点击年份后直接关闭选择器：

library(shiny)
library(dplyr)
library(lubridate)
library(ggplot2)

ui <- fluidPage(
  tags$script(HTML('
    $(document).on("shiny:connected", function() {
      // 监听日期范围选择器的初始化
      $("#myInputID").on("apply.daterangepicker", function(ev, picker) {
        // 提取选中的年份，设置为当年的1月1日和12月31日
        var startYear = picker.startDate.format("YYYY");
        var endYear = picker.endDate.format("YYYY");
        picker.setStartDate(startYear + "-01-01");
        picker.setEndDate(endYear + "-12-31");
      });
      
      // 点击年份时直接应用选择，无需再选月份日期
      $("#myInputID").on("show.daterangepicker", function(ev, picker) {
        picker.container.on("click", ".year", function() {
          setTimeout(function() {
            picker.clickApply();
          }, 100);
        });
      });
    });
  ')),
  
  dateRangeInput(
    inputId = "myInputID",
    label = h4("Year"),
    start = as.Date("1990-01-01"),
    end = as.Date("2005-12-31"),
    startview = "year",
    language = "es",
    format = "yyyy",
    separator = " - "
  ),
  
  actionButton(inputId = "apply_analysis", label = "Aplicar", icon = icon("play")),
  plotOutput("myPlot")
)

server <- function(input, output) {
  out <- eventReactive(input$apply_analysis, {
    managers %>%
      data.frame() %>%
      rownames_to_column("Date") %>%
      mutate(year = year(Date)) %>%
      # 提取输入日期的年份进行范围过滤
      filter(year >= year(input$myInputID[1]) & year <= year(input$myInputID[2]))
  })
  
  output$myPlot <- renderPlot({
    out() %>%
      ggplot(aes(x = year, y = HAM1)) +
      geom_line() +
      theme_bw()
  })
}

shinyApp(ui = ui, server = server)

额外修正说明 #

你原代码中的filter(year > input$myInputID)存在逻辑错误：input$myInputID是包含起始和结束日期的向量，直接比较会导致类型不匹配，必须用year()函数提取年份后再进行范围过滤。

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