r语言 - Shiny -将日期范围选择限制为X天

Question

我需要一个精确的2天范围ShinyWidgets airDatepickerInput．也就是说我只能在第一次约会前1天选择。

如何更新输入$Dates[2]的maxDate和minDate选项，使其响应并等于输入$Dates[1] + 1

有更好的方法吗?如何使用updateAirDateInput

?

# Libraries
library(shiny)
library(shinyWidgets)

# UI
ui <- navbarPage(title = "Title - V1.0",
                 tabPanel("Tab 1",
                          sidebarLayout(
                            sidebarPanel(width = 4,
                                         airDatepickerInput(inputId = "Dates",
                                                            multiple = 2,
                                                            range = TRUE)),
                            mainPanel())))
# Server
server <- function(input, output, session) {}
# Create a Shiny app object
shinyApp(ui = ui, server = server)

Answer 1

我自己找到了答案。

daterangepicker(
  inputId = "Dates",
  label = "Select Dates",
  start = as_date(Sys.Date()-60),
  end = as_date(Sys.Date()),
  min = '2021-01-01',
  max = Sys.Date(),
  options = daterangepickerOptions(maxSpan = list("days" = 2)),
  ranges = list("Today" = Sys.Date(),
                "Yesterday" = Sys.Date() - 1,
                "Yesterday & Today" = c(Sys.Date() - 1, Sys.Date()),
                "Last 7 days" = c(Sys.Date() - 6, Sys.Date())))

参考这里的基本和高级示例:

https://github.com/trafficonese/daterangepicker/tree/master/inst/examples