извлекать блестящую дату и диапазон входных данных

Мне нужно извлечь год и месяц из блестящего ввода даты. Я пытался :

output$sampled <- renderText({
    x <- as.character(format(input$daterange[1], "%Y"))
    })

Но я получаю NULL. Мне нужно быть похожим на 2018-08