Формат даты в Rhndsontable в Shiny - PullRequest
Новая
       11

Формат даты в Rhndsontable в Shiny

0 голосов
/ 13 февраля 2019

У меня в приложении Shiny есть rhandsontable, когда я вижу таблицу в 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)
  })
...