hour-min 반짝이는 슬라이더 스케일을 행렬에 연결

Question

문자 벡터에 저장된 행 이름으로 5 분 간격 시간 스탬프가있는 133x4 행렬이 있습니다. "10:30", "10:35"... 반짝이는 슬라이더를 만들어 사용자가 타임 스탬프 b/w 시작 및 종료 시간을 선택하고 해당 타임 스탬프에 해당하는 막대 그래프를 반환하도록하려고합니다. 슬라이더 축 레이블 번호를 b/w 1 및 133으로 지정하여이 작업을 수행 할 수 있습니다.이 코드는 여기에 있습니다. https://pastebin.com/GSKsYJVp 그러나 5 분 간격 시간 스탬프를 사용하여 슬라이더를 수행 할 수 없었습니다. 둘러 보았고 여기에서 해결책을 다시 시도했습니다 : Shiny Slider Input step by month,하지만 오류 메시지가 나타납니다 : 'origin'이 제공되어야합니다. 여기 내 (장애) 코드는 지금까지의 :

library(shiny) 
ui <- fluidPage(

    titlePanel("Running Counts!"), 
    sidebarLayout(
    sidebarPanel(
     sliderInput(inputId = "bins", 
        label = "Select time:", 
        min = as.Date("2017-12-18 10:30", tz = "Asia/Kolkata"), 
        max = as.Date("2017-12-18 21:30", tz = "Asia/Kolkata"), 
        value = min, 
        timeFormat = "%H:%M", 
        step = 300)#i.e. 5 mins 

    ), 
    mainPanel(
     plotOutput(outputId = "distPlot") 
    ) 
) 
) 
server <- function(input, output) { 


output$distPlot <- renderPlot({ 
    full.date <- as.POSIXct(input$bins, tz="Asia/Kolkata") 
    output <- strftime(full.date, format = "%H:%M") 
    x <- barplot(results_mat[output,]) 
      #main = paste(c("Results at ", rownames(results_mat)[input$bins]))) 
}) 
} 
shinyApp(ui = ui, server = server) 

나는 내 작업에 대한 링크를 게시하지만, 세련, 코드는이 게시물의 길이를 포함 할 수 있습니다. 이 포럼에서 실제 코드가 필요한 경우 게시 할 수도 있습니다. 감사합니다

Answer 1

나는 내 자신의 질의에 대해 궁극적으로 대답했습니다 : 슬라이더 inputID, min, max 및 as.POSIXct() 변수와 서버() strftime (입력 빈, % R) 결과 행렬의 레이블을 준수하는 시간을 hrs : 분으로 나타내는 문자 변수를 반환합니다.