将小时-分钟闪亮滑块比例链接到矩阵行答案

【问题标题】：Linking hour-min Shiny slider scale to matrix rows将小时-分钟闪亮滑块比例链接到矩阵行
【发布时间】：2017-12-27 08:59:54
【问题描述】：

我有一个 133x4 矩阵，带有 5 分钟间隔时间戳，因为它的行名存储在字符向量中，“10:30”，“10:35”，... 我正在尝试制作一个闪亮的滑块，以便用户选择任何时间戳黑白开始和结束时间，并获得与该时间戳相对应的条形图作为回报。我可以使用编号为 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)

我发布了一个链接到我的工作但不优雅的代码来包含这篇文章的长度。如果这个论坛需要实际代码，我也可以发布。谢谢

【问题讨论】：

标签： r shiny

【解决方案1】：

我想我最终设法回答了我自己的查询：将滑块 inputID、min、max 和 value 读取为 as.POSIXct() 变量并在 server() strftime(input$bins, "%R") 中返回以 hrs:mins 为单位描述时间的字符变量，符合结果矩阵的标签

【讨论】：