Как сделать так, чтобы шаги составляли 6 часов в режиме слайдера в R

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 часов.

Что мне установить для параметра "step" функции sliderInput?

Answer 1

Я не проверял это, но шаг для объекта POSIXt в секундах.

Так что я предполагаю, что 6 часов = 6 * 60 * 60 = 21600?