Блог

Мой кадр данных показывает вывод даты иначе, чем желаемый ввод. Я читал об обходном пути с помощью as.character() команды, но это не помогает:

 library(shiny)
library(DT)
ui <- fluidPage(
      dateInput("date", label = "Enter Date", value = "", format= "dd.mm.yyyy"),
      actionButton("Enter", label = "Submit"),
      hr(),
      dataTableOutput("dataframe")
      )

server <- function(input, output){
      df <- eventReactive(input$Enter, {
      data.frame(A = as.character(input$date))
      })

      output$dataframe <- renderDataTable(
      df()
      )
  }

shinyApp(ui = ui, server = server)
 

в результате получается следующий результат:

Выходное Изображение

Однако я хотел бы, чтобы дата была указана в немецком формате даты dd.mm.yyyy .

У кого-нибудь есть идея? Заранее спасибо.

Это правильная дата, но
попробуйте другой формат:

 library(shiny)
library(DT)
ui <- fluidPage(
  dateInput("date", label = "Enter Date", value = "", format= "dd.mm.yyyy"),
  actionButton("Enter", label = "Submit"),
  hr(),
  dataTableOutput("dataframe")
)

server <- function(input, output){
  df <- eventReactive(input$Enter, {
    data.frame(A = as.character(format(input$date, "%d.%m.%Y")))
  })
  
  output$dataframe <- renderDataTable(
    df()
  )
}

shinyApp(ui = ui, server = server)