Question

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

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

})

现在我想通过selectInput下拉菜单格式化我不知道名字的第一列（日期）：

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

我的问题是eventReactive的输出究竟是什么（在这种情况下是upload_data（））它是一个函数吗？

我尝试了useR的建议但是没有任何反应：

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

或者当我尝试转换日期时收到错误incorrect number of dimensions：

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

如何格式化日期？

格式反应元素的日期闪亮

0 个答案: