在R Shiny daterangeinput中更改日期格式

debugcn 发表于 Dev

萨布里

我正在构建一个应用程序，用户可以在其中按日期过滤数据。然后，我以后要以“月，日，年”格式显示反应性文本，内容为“您正在查看从开始日期到结束日期的数据”。不幸的是，Shiny的daterangeInput默认为年，月，日。

我试过使用

    start_date <- reactive({
        format(as.Date(input$date_filter[1]), "%d/%m/%Y")})

但我收到此错误，应用程序崩溃：

Warning: Error in as.vector: cannot coerce type 'closure' to vector of type 'character'
  [No stack trace available]

有任何想法吗？这是dateRangeInput。我也尝试过更改开始日期的格式，但这弄乱了日期。谢谢！

library(shiny)


ui <- fluidPage(
  
  dateRangeInput(
        inputId = "date_filter",
        label = "Filter by Date",
        start = "2020-01-01",
        end = NULL,
        min = "2020-01-01",
        max = NULL,
        format = "m-d-yyyy",
        startview = "month",
        weekstart = 0,
        language = "en",
        separator = " to ",
        width = NULL,
        autoclose = TRUE
      ))

shinyApp(ui, server = function(input, output) {
  
})
~~~~

罗纳克·沙

您可以使用：

library(shiny)

ui <- fluidPage(
  
  dateRangeInput(
    inputId = "date_filter",
    label = "Filter by Date",
    start = "2020-01-01",
    end = NULL,
    min = "2020-01-01",
    max = NULL,
    format = "m-d-yyyy",
    startview = "month",
    weekstart = 0,
    language = "en",
    separator = " to ",
    width = NULL,
    autoclose = TRUE
  ), 
  
  textOutput('text')
  )

shinyApp(ui, server = function(input, output) {
  output$text <- renderText({
    x <- format(input$date_filter, "%d/%m/%Y")
    sprintf("You're viewing data from %s to %s", x[1], x[2])
  })
})