时间范围输入,小时级细节闪亮

Question

这是一个简单的问题.我想在我的应用程序中创建一个类似于dateRangeInput的输入,但是除了YYY-MM-DD之外我还想让它让我从该范围中选择精确的小时,​​分​​钟和秒,是否有任何闪亮的方法？我似乎无法在谷歌上找到它.

我可以只输入文本,但我喜欢dateRangeInput提供的界面

Answer 1

您可以将变量类型设置为 POSIXct，下面是一个示例：

library(shiny)

# ui.R

ui <- shinyUI(fluidPage(
  title = 'Initial run of time range update breaks sliderInput',
fluidRow(
column(width = 12, 
       sliderInput("timeRange", label = "Time range",
                   min = as.POSIXct("2011-06-04 12:00:00"),
                   max = as.POSIXct("2011-08-10 14:00:00"),
                   value = c(as.POSIXct("2011-06-04 12:00:00"),
                             as.POSIXct("2011-08-10 14:00:00"))),
       actionButton("update", "Update range")

)
)))

server <- shinyServer(function(input, output, session) {
       output$from <- renderText(input$timeRange[1]);
       output$to <- renderText(input$timeRange[2]);
       observe({
          input$update;
          updateSliderInput(session, "timeRange", value = 
          c(as.POSIXct("2011-06-14 
          12:00:00"), as.POSIXct("2011-08-01 14:00:00")));
})
})

runApp(list(ui = ui,server = server))

输出：

在此输入图像描述