На ui
, где вы определяете интерфейс, используйте dateInput
и укажите идентификатор (наш идентификатор myInput
):
dateInput("myInput", "Pick a Date:", value = "2018-04-29")
И в вашем server
вы можете использовать значение myInput
и сопоставить его с выводом, который может быть показан на внешнем интерфейсе:
output$somedate <- renderText({ as.character(input$myInput) })
Не забудьте включить вывод в ваш интерфейс:
verbatimTextOutput("somedate")
См. Пример: