Working with dateInput in Shiny

[grwild]

Hello,

This is my first post to the R community, and I suspect my question may be immediately obvious to anyone who views it (and I'm also worried this may be an R question, and not a Shiny question per say). Nonetheless, I cannot figure it out. I'm working on a Shiny form using the excellent template provided by Dean Attali (https://deanattali.com/2015/06/14/mimicking-google-form-shiny/). Using Dean's example (code here: https://github.com/daattali/shiny-server/blob/master/mimic-google-form/app.R), let's just add a single field, a date input:

dateInput("date", label = "Date:", format = "mm/dd/yyyy")

Now, I update fieldsAll (line 4) so the date will be displayed in the table that is rendered:

fieldsAll <- c("name", "date", "favourite_pkg", "used_shiny", "r_num_years", "os_type")

However, the date appears in a format I do not recognize. For example, the date 01/07/2019 displays in the table as 17903. I would like this to display the same as it is entered, how can this be accomplished? My first thought was that on the server side, the output$responseTable should be modified (added line 228), e.g.:

data$date <- as.POSIXct(data$date, ...)

But I'm not sure what should be set for origin here since I do not recognize the format. Any insight would be greatly appreciated!

Thanks!

[grwild]

Clearly I needed to put in more time learning about date formatting in R. The following works when inserted into the output$responsesTable section of code on the server side:

data$date <- format(as.Date(data$date, origin="1970-01-01"), "%m/%d/%Y")