R 无功元件的格式日期

嘿，我有一个简单的问题，但似乎我错过了一些重要的信息继续。我有一个数据帧，它保存在一个被动函数中

upload_data <- eventReactive(input$upload, {
 read_files(readDirectoryInput(session, 'directory'))

})

---

如何设置日期格式？

您似乎没有使用

upload\u data（）

将数据存储在任何位置。试试这样：

my_data@useR我编辑了我的帖子，请看第二部分
data_tc <- eventReactive(input$datum_formatieren, {
   if (input$datum_format == "dmy") {
   upload_data()[,1] <- dmy(upload_data()[,1]) }
   if (input$datum_format == "ymd") {
     upload_data()[,1] <- ymd(upload_data()[,1]) }
   })

Warning: Error in <-: invalid (NULL) left side of assignment

output$df <- renderTable({
input$show_data
my_data3 <- upload_data()
  head(my_data3[,1:7])
})

observeEvent(input$action_format,{
output$message <- renderText({
my_data2 <- data_tc()
my_data2[,1] <- dmy(my_data2[,1])
paste(my_data2[1,1])
})})