让shiny的`dateRangeInput`的`end`总是大于`start`

Question

我正在制作一个闪亮的应用程序dateRangeInput。我想以这样的方式进行日期选择，即用户无法在第二个日期输入中选择比第一个日期输入更小的日期。

例如，从上图中，shiny现在让用户在第一个日期输入中选择 2018 年 7 月 26 日后，在第二个日期输入中选择 2017 年的日期。我现在想要进行更改，以便第二个日期输入始终在第一个日期输入后的一天开始，就像用户无法选择甚至在第二个输入中看到 2018 年 7 月 26 日一样，并且总是看到之后的一天，例如 2018 年 7 月 27 日，之后在第一个日期输入中选择 2018 年 7 月 26 日。我检查过 的文档dateRangeInput，那里没有任何可用的内容。
那么，我该怎么做呢？

Answer 1

可以在shinyWidgets中找到阻止用户选择开始>结束的替代方法：

library(shiny)

ui <- fluidPage(
  shinyWidgets::airDatepickerInput("daterange", "Date range:",
                                   range = TRUE,
                                   value = c("2010-01-01", "2001-12-31")),
  verbatimTextOutput("res")
)
server <- function(input, output, session) {
  output$res <- renderPrint({
    paste("Start at", input$daterange[1], "and end at", input$daterange[2])
  })
}
shinyApp(ui, server)