make shiny dateInput返回NULL或空字符

Question

我正在开发一个闪亮的应用程序，允许用户将input个插槽中的值保存到SQL Server数据库中。我想要选择的一件事是删除当前存在的日期。为此，我需要一种方法来传递NULL，NA，""或某些，我可以使用它来将数据库中的值设置为NULL

然而，

dateInput并不与我合作，而且我无法弄清楚如何使日期输入类型返回除日期之外的任何内容（这会使得不便之处这一刻）。

有人能想出一种方法来获取日期输入字段，该字段将传递日期或NULL（或某些等效字母）？

（在此示例中，我希望输入字段下方的文字显示为NULL，""等，而不是整数）

shinyApp(
  ui = shinyUI(
    wellPanel(dateInput(inputId = "date",
                        label = "Choose a Date"),
              verbatimTextOutput("selected"))
  ),

  server = shinyServer(function(input, output){
    output$selected <- 
      renderText({
        input$date
      })
  })
)