默认 updateDateInput 今后不起作用

我有一个简单的应用程序，它使用动态 UI 元素，updateDateInput，以确保用户只能选择指定年份中的日期。所选日期应始终默认为所选年份的第一天。

library(shiny)
library(tidyverse)
library(lubridate)

ui <- fluidPage(
  selectInput("year", "Select Year:",
              choices = 2010:2020, selected = 2015),
  dateInput("date", "Select Date:", value = NULL)
)

server <- function(input, output, session) {
  observeEvent(input$year, 
               updateDateInput(session, "date", 
                               min = ymd(paste(input$year, "01-01", sep = "-")),
                               max = ymd(paste(input$year, "12-31", sep = "-")),
                               value = ymd(paste(input$year, "01-01", sep = "-"))))
}

shinyApp(ui, server)

将所选年份向后移动时（例如 2015 年 - 2014 年），所选日期会自动更新为该月的第一天。然而，当用户将日期向前移动时，从 2015 年到 2016 年，所选日期默认为空，用户需要手动搜索才能找到当前年份的日期。

谁能帮我弄清楚为什么会发生这种情况？

这是一个令人讨厌的问题，当它发生在我身上时，我花了很长时间才找到它。问题是updateDateInput似乎做了一些未做的改变atomic。也就是说，它们不会同时发生，而是依次发生。因此，当同时更改输入小部件的多个参数时，有可能value暂时无效。

诀窍是确保所选日期在更新期间始终有效。这意味着分两个阶段进行更改，并且更改的顺序取决于您是在时间上向前还是向后移动。

这是一个可行的解决方案。

library(shiny)
library(tidyverse)
library(lubridate)

ui <- fluidPage(
  selectInput("year", "Select Year:",
              choices = 2010:2020, selected = 2015),
  dateInput("date", "Select Date:", value = NULL)
)

server <- function(input, output, session) {
  observeEvent(input$year, {
    req(input$date, input$year)
    
    # Are we going backwards or forwards?
    if (as.numeric(input$year > year(input$date))) {
      updateDateInput(
        session, 
        "date", 
        max = ymd(paste(input$year, "12-31", sep = "-")),
        value = ymd(paste(input$year, "01-01", sep = "-")),
      )
      updateDateInput(
        session, 
        "date", 
        min = ymd(paste(input$year, "01-01", sep = "-"))
      )
    } else {
      updateDateInput(
        session, 
        "date", 
        min = ymd(paste(input$year, "01-01", sep = "-")),
        value = ymd(paste(input$year, "01-01", sep = "-"))
      )
      updateDateInput(
        session, 
        "date", 
        max = ymd(paste(input$year, "12-31", sep = "-"))
      )
    }
  })
}

shinyApp(ui, server)