Показать недействительные даты, не работающие под Проверкой?

Question

У меня есть серверный файл, в котором, если я выберу input$Date[1] > input$Date[2], должны появиться уведомления с указанием неверной выбранной даты. Я попытался с кодом ниже

output$table <- DT:renderDT({
datatable(data()),

validate(
need(input$Date[1] > input$Date[2], "Invalid date selected")
)
})

Я не получаю вывод. Могу ли я знать, что я делаю не так