shiny-reactivity

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