r - 如何在 R 中的滑块输入中将步骤设为 6 小时

Question

library(shiny)

# ui.R

ui <- shinyUI(fluidPage(
  title = 'Initial run of time range update breaks sliderInput',
  fluidRow(
    column(width = 100, 
           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))

以上是代码。我想制作滑块，使得每一步都会导致 6 小时的增加或减少。

我应该将 sliderInput 函数的“step”参数设置为什么？

标签： rshiny

Answer 1

我没有对此进行测试，但POSIXt 对象的步骤只需几秒钟。

所以我猜 6 小时 = 6 * 60 * 60 = 21600 ？