'sep' 参数在 sliderInput 中不起作用(Shiny 0.14)

'sep' parameter not working in sliderInput (Shiny 0.14)

升级到 Shiny 0.14 后,sliderInput 中的 sep 参数对我不起作用了(虽然我不是 100% 确定升级是真正的原因)。

当我想要使用 sliderInput 小部件多年时,我显然不希望有任何千位分隔符。所以我在一个最小的例子中尝试了这个:

shinyApp(
  ui = basicPage(
    sliderInput("test", label = "Test slider", min = 1953, max = 2014, step = 1, sep = "",
            value = 1990)
  ),
  server = function(input, output) {
  }
)

这就是我在我的系统上得到的:

Shiny 0.14 真的是这个原因吗?还是我做错了什么?如果我将 sep = "" 交换为 sep = ";"(例如),它会按应有的方式工作(; 用作千位分隔符)。

感谢您的帮助。

(我是 运行 R 3.3.1 Mac OS 10.11.6)

这个怎么样

library(shiny)
shinyApp(
        ui = basicPage(
                sliderInput("slider", "Time", min = as.Date("1953-01-01"),max =as.Date("2014-01-01"),value=as.Date("1990-01-01"),timeFormat="%Y")
        ),
        server = function(input, output) {
        }
)