Не удалось объявить ввод $ date как NULL

Question

Я создал блестящее приложение, в котором есть 2 условия (одно - фильтр, а другое - дата). Я не могу объявить дату как NULL

ui.R

selectInput("ID","",choices = c("",as.character(data$ID)),selected = "")
dateInput("Date", "", min = NA, max = NA, value = NA,format = "yyyy-mm-dd")

server.R

  data2 <- eventReactive(input$Submit,{
      if(input$ID != "" && input$Date != ""){      
..............
}
})  

  output$table <- DT::renderDT({

    datatable(data2())
  })