Формат даты реактивного элемента Shiny

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 ()), это функция?

Iпопробовал предложение 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])
})})

Как мне отформатировать дату