麻烦在read_csv之后将数字日期转换为有光泽的YMD

Question

你好，我有一个出色的应用程序，我从本地计算机上载文件。我遇到的一个问题是csv中的日期在Shiny中转换为数字。我试图隐蔽地追溯到现在，但无法使其恢复为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)
  })