How to format dates in the data retrieved from the widget?

[rrodrigueznt]

Hi! Can each item's start and end dates have a different format when retrieved from the widget? Based on some examples on this site, I'm playing with the code below, but I need help finding the way to format the start and end as, for instance, yyyy-mm-dd.

I get:

I want to get:

library(shiny)
library(timevis)
library(lubridate)
library(dplyr)

topleftcoor_window <- NULL

ui <- fluidPage(
    # front end interface
    timevisOutput("timeline01"),
    tableOutput("data"),
    verbatimTextOutput("data_s"),
    textOutput("ids"),
    textOutput("selected"),
    textOutput("window"),
    verbatimTextOutput("window_tl"),
    textOutput("window_tl_f"),
    textOutput("visible")
)

server <- function(input, output, session) {
    # back end logic
    data <- data.frame(
        id = 1:4,
        content = c("Item one", "Item two", "Ranged item", "Item four"),
        start = c(
            "2016-01-10",
            "2016-01-11",
            "2016-01-20",
            "2016-02-14 15:00:00"
        ),
        end = c(NA, NA, "2016-02-04", NA)
    )

    output$timeline01 <- renderTimevis(timevis(data,
        options = list(
            stack = TRUE,
            editable = TRUE,
            multiselect = TRUE,
            align = "center"
        )
    ) %>% setSelection(2))

    output$data <- renderTable(input$timeline01_data)
    output$data_s <- renderPrint(str(input$timeline01_data[c(3)]))
    output$ids <- renderText(input$timeline01_ids)
    output$selected <- renderText(input$timeline01_selected)
    output$window <- renderText(input$timeline01_window)
    output$window_tl <- renderPrint(str(input$timeline01_window[1]))
    output$window_tl_f <- renderText(
        lubridate::date(as.Date(input$timeline01_window[1]))
    )
    output$visible <- renderText(input$timeline01_visible)
}

shinyApp(ui, server)

Thanks!

[daattali]

You can't ask timevis to return items in a specific format, but the string you get back can be parsed with {lubridate} (or in other ways). This question is out of scope for {timevis}, it's a general question in R about "how can I convert a datetime string to a different format?" - please use a more appropriate channel to find the answer to that question.

[daattali]

I googled it for you and it looks like this will work: format(lubridate::as_datetime(input$timeline01_window[1]), "%Y-%m-%d")