Zeitbereichseingang mit Stundenpegel-Detail in glänzendem

Question

Dies ist eine einfache Frage. Ich möchte in meiner App eine Eingabe erstellen, die dateRangeInput ähnlich ist, aber neben YYY-MM-DD möchte ich auch, dass ich die genaue Stunde, Minute und Sekunde aus dem Bereich auswählen kann, gibt es irgendeine Methode in diesem Glanz? Ich kann es nicht auf Google finden.

ich nur einen Texteingabe machen könnte, aber Ich mag die von dateRangeInput bereitgestellte Schnittstelle

Answer 1

Sie den Variablentyp auf POSIXct setzen kann, ist hier ein Beispiel:

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)) 

Ausgang:

enter image description here