NY temperature (May - Sept 1973)

This app allows you to view a graph of New York temperature by day of month in the period specified in title above. First we will walk through the steps and code used to build the app.

• Open shiny in R studio

• Write code as displayed in next slide on the ui.R page

• Write code as displayed on slide four in the server.R page

• Save and run

library(shiny)
shinyUI(fluidPage(
  titlePanel("New York Temperature (May to September 1973)"),
  sidebarLayout(
    sidebarPanel(
            sliderInput("slider", "Use slider below to choose consecutive days of month from 1 - 31",
                        1, 31, value = c(1,31)),
            checkboxInput ("Show_Title", "show/hide Title", value = TRUE)
    ),
    mainPanel(
            h3("Guidelines"),
            textOutput("Documentation"),
            h3("The graph"),
            plotOutput("Plot")
    )
  )
))

<!–html_preserve–>

<!–/html_preserve–>

library(shiny)
library(ggplot2)
library(datasets)
library(plotly)
shinyServer(function(input, output) {
  output$Plot <- renderPlot({
          min <- input$slider[1]
          max <- input$slider[2]
          levels(airquality$Month) <- c("May", "June", "July", "Aug", "Sep")
          data <- subset(airquality, Day %in% min:max)
          title <- ifelse(input$Show_Title, "Temperature by day of the month", "")
          ggplot(data, aes(Day, Temp, col = Month)) + geom_line() +
                  facet_grid(Month ~.) + xlab("Day of month") + ylab("Temperature") +ggtitle(title)
  })

})