Проблемы с преобразованием нумери c даты в YMD в блестящем после read_csv

Question

Здравствуйте, у меня блестящее приложение, в которое я загружаю файл с локального компьютера. У меня проблема в том, что дата в моем csv конвертируется в цифру c в Shiny. Я пытался вернуться назад к дате, но я не могу получить его в go обратно в формат YMD.

library(shiny)
library(tidyverse)
ui <- fluidPage(

    sidebarLayout(
        sidebarPanel(
           fileInput("test", "test")
        ),
        mainPanel(
         tableOutput("testtab")
        )
    )
)

server <- function(input, output) {

    data = reactive({
        req(input$test)
        dat = as.data.frame(read_csv(input$test$datapath))
        dat$Date = round(as.numeric(dat$Date),2)
        dat$Date = as.Date(dat$Date)
        return(dat)
    })

    output$testtab <- renderTable({
      data() 
    })
}

shinyApp(ui = ui, server = server)

Я хотел бы Столбец «Дата» будет действительной датой в формате YMD. Как видите, я попробовал несколько вещей, но ничего не помогло.

Answer 1

Используйте as.character. Это похоже на работу

 data = reactive({
    req(input$test)
    dat = as.data.frame(read_csv(input$test$datapath))
    dat = dat %>% mutate_at(vars(Date), list(~as.character(.)))
    return(dat)
  })