R 在UI中建立输入之间的依赖关系

有两个日期输入：

date1

和

date2

。

date2

不应在

date1

之前。如何在UI中建立依赖关系

我应该在

date2

的

min=

中写什么？
我试过：

min=input$date1

，

min='input$date1'

，

min='input.date1'

，

'min='input.date1'

，

但它不起作用

library(shiny)

ui <- fluidPage(
   dateInput("date1", "date 1"),
   dateInput("date2", "date 2 = not be before date 1", min = 'input.date1') 
)

server <- function(input, output) {
}

shinyApp(ui = ui, server = server)

库（闪亮）
ui不确定是否可以仅在
ui
中实现这一点，但您可以在服务器逻辑中使用
updateDateInput
，以获得所需的行为：

library(shiny)

ui <- fluidPage(
  dateInput("date1", "date 1"),
  dateInput("date2", "date 2 = not be before date 1") 
)

server <- function(input, output, session) {
  observe({
    req(input$date1)
    ## whenever input$date1 changes, change min of input$date2
    updateDateInput(session, "date2", min = input$date1)
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
ui也可以使用
observeEvent

library(shiny)

ui <- fluidPage(
  dateInput("date1", "date 1"),
  dateInput("date2", "date 2 = not be before date 1") 
)

server <- function(input, output, session) {
  observeEvent(input$date1,{
    updateDateInput(session, "date2", min = input$date1 + 1,value = input$date1 + 1)
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
用户界面