app.R

library(shiny)
library(ggplot2)
library(plyr)
library(dplyr)

data <- read.csv("workbook.csv", stringsAsFactors = FALSE) #subset dataframe to reactive dataframe to input slider
ui <- fluidPage(
  titlePanel("Ambient Particulate Matter"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("sampleInput", "Choose a sample size:", min = 1, max = 134, value = c(25, 100), pre = " ")
    ),
    mainPanel(
      plotOutput("coolplot"), dataTableOutput("coolstats"), tableOutput("coolstats2"))
    )
  )
server <- function(input, output) {
  output$coolstats <- renderDataTable({
    data[input$sampleInput[1]:input$sampleInput[2],]
  })
}

shinyApp(ui, server)