library(shiny)
ui <- fluidPage(

  titlePanel("Running Counts!"),

  sidebarLayout(

    sidebarPanel(

      sliderInput(inputId = "bins",
                  label = "Select time:",
                  min = 1,
                  max = nrow(results_mat),
                  value = 30)
     ),
     mainPanel(
      plotOutput(outputId = "distPlot")
      )
  )
)
server <- function(input, output) {

  output$distPlot <- renderPlot({

   barplot(results_mat[input$bins,],
    main = paste(c("Results at ", rownames(results_mat)[input$bins])))
})
}
shinyApp(ui = ui, server = server)