将 dateRangeInput 恢复为空

Question

我可以开始dateRangeInput与空 start和 end在 Shiny 。

dateRangeInput("date", "Date input", start = "", end = "")

在此日期范围内进行选择后，当我尝试

updateDateRangeInput(session, "date", start = "", end = "")

它不起作用。它适用于其他类型的输入(见下文)。

这是一个reprex，当我点击go时它会输入日期，当我点击go2时它什么都不做。

library(shiny)
shinyApp(
  ui = fluidPage(
    h4("Date:"),
    # Starting with an empty date
    dateRangeInput("date", "Date input", start = "", end = ""), 
    actionButton("go","go"),
    actionButton("go2","go2"), 
    # And an empty button
    textInput("text", "text"), 
    actionButton("go3","go3")
  ),
  server = function(input, output, session){
    observeEvent( input$go , {
      # Will change the date accordingly
      updateDateRangeInput(
        session, 
        "date", 
        start = Sys.Date()-10, 
        end = Sys.Date()-5
      )
    })
    observeEvent( input$go2 , {
      # Does nothing
      updateDateRangeInput(
        session, 
        "date", 
        start = "", 
        end = ""
      )
    })
    observeEvent( input$go3 , {
      # Empties the text input
      updateTextInput(
        session, 
        "text", 
        value = ""
      )
    })
  }
)

Answer 1

似乎需要日期格式。您可以使用 NA而不是 "" .

library(shiny)
shinyApp(
  ui = fluidPage(
    h4("Date:"),
    dateRangeInput("date", label = h5("Date input"), start = "", end = ""), 
    actionButton("go","go"),
    actionButton("go2","go2")
  ),
  server = function(input, output, session){
    observeEvent( input$go , {
      cat("go1\n")
      updateDateRangeInput(session, "date", start = Sys.Date()-10, end = Sys.Date()-5)
    })
    observeEvent( input$go2 , {
      cat("go2\n")
      updateDateRangeInput(session, "date", start = NA, end = NA)
    })
  }
)