r - 时间范围输入，带有 Shiny 的小时级别细节

Question

这是一个简单的问题。我想在我的应用程序中创建一个类似于 dateRangeInput 的输入，但是除了 YYY-MM-DD 我还想让它让我从范围中选择确切的小时、分钟和秒，有没有像这样 Shiny 的方法？我似乎无法在谷歌上找到它。

我可以只输入文本，但我喜欢 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))

输出:

enter image description here