闪亮 - 带小时的滑块输入

如何解决闪亮 - 带小时的滑块输入

我正在尝试用小时编写一个滑块输入，代码是：

ui <- fluidPage(
      sliderInput("hour","Range",value = c(as.POSIXct("00:00",format = "%H:%M"),as.POSIXct("23:59",format = "%H:%M")),min = as.POSIXct("00:00",max = as.POSIXct("23:59",format = "%H:%M"))
)

但是，滑块不显示 24 小时格式。 我该怎么做？

我也尝试过输入日期：

ui <- fluidPage(
      sliderInput("hora",value = c(as.POSIXct("01/01/15 00:00"),as.POSIXct("01/31/15 23:59")),min = as.POSIXct("01/01/15 00:00"),max = as.POSIXct("01/31/15 23:59"))
)

怎么解决这个问题？