Блог

Я пытаюсь получить некоторые диапазоны дат из ввода календаря. Эти даты должны быть отформатированы в виде текста, подобного этому:

Если пользователь выберет 6 мая 1986 года из календаря, мне потребуется 19860506, чтобы я мог использовать эту текстовую строку для других вычислений.

Это основной пример того, что у меня есть до сих пор, но я не получаю желаемого результата

пользовательский интерфейс

 ui <- fluidPage(
           airDatepickerInput(
             inputId = "range",
             label = "Select range of dates:",
             range = TRUE, 
             value = c(Sys.Date()-7, 
                       Sys.Date()),
             todayButton = F,
             clearButton = T,
             addon = c("none")
            ) )
 

Сервер

 server <- function(input, output, session) {

    date_start <- as.character(as.Date(input$range[1], format="%Y%m%d"))
    date_end   <- as.character(as.Date(input$range[2], format="%Y%m%d"))

    ##Visualization check
    output$date1  <- renderPrint(date_start)
    output$date2  <- renderPrint(date_end)
    }
 

Эта format функция сработала для меня

 date_start <- input$range[1]
date_end   <- input$range[2]

date_start = format(date_start, "%Y%m%d")   
date_end = format(date_end, "%Y%m%d") 
    
output$date1  <- renderText(date_start)
output$date2  <- renderText(date_end)