Question

我的Shiny应用程序中有一个rhonsontable，当我看到Shiny表格时，当前两行的日期格式为5位数字，但是当我更改单元格或输入新日期时，其格式为YYYY MM-DD格式。如何获得默认日期值并以正确的格式显示？

下面是代码的一部分，抱歉，由于它是一个大型的Shiny应用程序，因此无法完整介绍。 ddd =数据框，其中包含一个名为date的日期列和一个名为var

的数字列

我的代码基于来源https://github.com/jrowen/rhandsontable/issues/145

  values <- reactiveValues()

  output$OldIris <- renderRHandsontable({
    ddd <- data.frame(matrix(ncol = ncol(nametable()) , nrow = 100))
    colnames(ddd) <- names(nametable())
    for(j in 1:ncol(nametable())){
      ddd[1,j] <- min(nametable()[,j]) #first row min date, min var
      ddd[2,j] <- max(nametable()[,j]) #second row max date, max var
    }

    ddd$date <- as.character(ddd$date, format = "%Y-%m-%d")
    rhandsontable(as.data.frame(ddd)) %>%
      hot_col("tickervaluedate", dateFormat = "YYYY-MM-DD",type="date")
  })

  observeEvent(input$runButton, {
    values$data <-  hot_to_r(input$OldIris)
  })

Shiny中的rhandsontable中的日期格式问题

0 个答案: