sliderInput不格式化日期标签（不再）

Question

我有这个应用程序，用于正确格式化输入幻灯片的标签中的日期。现在（不确定从何时开始）它返回Unix时间戳。 sliderInput进程的日期有何变化？

ui <- fluidPage(
  sliderInput("date_range", 
              NA, as.Date("2016-01-31"), as.Date('2016-12-04'),
              value = c(as.Date("2016-01-31"), as.Date('2016-12-04')), 
              step = 1, sep = ""
  )
)

# Server logic
server <- function(input, output) {
}

# Run the application 
shinyApp(ui = ui, server = server)

我在OSX和Shiny Server（在Ubuntu上）都测试了它。结果相同。

Answer 1

如果从sep中删除sliderInput参数，则会获得预期的输出。您的代码如下所示：

library(shiny)
  ui <- fluidPage(
    sliderInput(inputId = "date_range", 
                NA, as.Date("2016-01-31"), as.Date('2016-12-04'),
                value = c(as.Date("2016-01-31"), as.Date('2016-12-04')), 
                step = 1
    )
  )

  # Server logic
  server <- function(input, output) {
  }

  # Run the application 
  shinyApp(ui = ui, server = server)

输出如下：