as.character（as.Date（））在闪亮的数据表

Question

以下代码适用于数据表显示：

observe({
if (!any(input$date == "NA")) {
  dates <- isolate(as.Date(dataset$data[, input$date], format = input$dateformat))
}

if (!any(input$date == "NA")) {
  dataset$data[, input$date] <- dates
}

但是，dataset$date（日期列）以日期格式保存。我想以字符格式保存它。这是我的尝试：

observe({
if (!any(input$date == "NA")) {
  dates <- isolate(as.Date(dataset$data[, input$date], format = input$dateformat))
}

if (!any(input$date == "NA")) {
  dataset$data[, input$date] <- as.character(dates)
}

这为我提供了日期列的所有NA值。任何关于如何解决这个问题的想法将非常感激。

P.S。我不确定在这种情况下是否需要isolate，这只是我最近的尝试，我尝试过不同的版本，例如基本as.character(as.Date())