时间戳

首页 > 解决方案 > 将 dateRangeInput 恢复为空

r - 将 dateRangeInput 恢复为空

问题描述

我可以从dateRangeInput空的start和end闪亮的开始。

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

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

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

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

这是一个代表，当我点击 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 = ""
      )
    })
  }
)

标签： rshiny

解决方案

似乎需要日期格式。您可以使用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)
    })
  }
)

推荐阅读