時間 - 分シャイニースライダスケールを行列の行に結びつけて

Question

文字ベクトルに格納されている行の名前として、5分間隔のタイムスタンプを持つ133x4行列を "10:30"、 "10:35"、... ユーザーが任意のタイムスタンプb/w開始時刻と終了時刻を選択し、そのタイムスタンプに対応するバープロットを返すようなShinyスライダを作成しようとしています。私はスライダーの軸ラベル番号b/w 1と133でこれを行うことができます。このコードはここにあります：https://pastebin.com/GSKsYJVp しかし、私は5分間隔のタイムスタンプでスライダを行うことができませんでした。私は周りを見回してここから解決策を再試行しようとした：Shiny Slider Input step by month、しかし、エラーメッセージが表示されています： '原点'を提供する必要があります。ここに私の（故障した）コードはこれまでです：

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、valueをas.POSIXct（）変数として読み込み、server（）strftime（入力$ bin、 "％R"）結果行列のラベルに従ったhrs：分の時間を表す文字変数を返します