R 读取后将数字日期转换为YMD时出现问题\u csv

你好，我有一个闪亮的应用程序，我从本地机器上传了一个文件。我遇到的一个问题是，我的csv中的日期转换为闪亮的数字。我试图隐藏回日期，但我不能让它回到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)

库（闪亮）
图书馆（tidyverse）
ui使用
作为.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)
  })

您的csv中的日期格式是什么？嗨，凯。这很有效。请您快速解释一下为什么您要将日期转换为列表并使用~？谢谢你好，亚当，很高兴知道这对你有用。我不会把日期列成一张清单。
列表（~…）
在调用
mutate_at（）
时，使
成为.character
的匿名函数。换句话说，我不必定义一个函数，在将其传递到
mutate_at（）
调用之前，它接受一个数字向量并返回一个字符向量。