shiny

Мне нужно извлечь год и месяц из блестящего ввода даты. Я пытался : output$sampled <- renderText({ x <- as.character(format(input$daterange[1], "%Y")) }) Но я получаю NULL....