Example test for HACS analysis

server.R

library(shiny)
library(datasets)

setwd("~/Downloads/R/E6")
E6Data <- read.table("dataHacs2.csv", header=TRUE, sep="," )

# We tweak the "am" field to have nicer factor labels. Since this doesn't
# rely on any user inputs we can do this once at startup and then use the
# value throughout the lifetime of the application
# mpgData <- E6Data
# mpgData$am <- factor(mpgData$am, labels = c("Automatic", "Manual"))

# Define server logic required to plot various variables against mpg
shinyServer(function(input, output) {

  # Compute the forumla text in a reactive function since it is 
  # shared by the output$caption and output$mpgPlot functions
  formulaText <- reactive(function() {
    paste("E6Data ~", input$variable)
  })

  # Return the formula text for printing as a caption
  output$caption <- reactiveText(function() {
    formulaText()
  })

  # Generate a plot of the requested variable against mpg and only 
  # include outliers if requested
  output$E6DataPlot <- reactivePlot(function() {
    boxplot(as.formula(formulaText()), 
            data = E6Data,
            outline = input$outliers)
  })
})

ui.R

library(shiny)

# Define UI for miles per gallon application
shinyUI(pageWithSidebar(

  # Application title
  headerPanel("Errors per Group clear(c) medium(m) obscured(o)"),

  # Sidebar with controls to select the variable to plot against mpg
  # and to specify whether outliers should be included
  sidebarPanel(
    selectInput("variable", "Variable:",list("Clear" = "c","Medium" = "m","Obscured" = "o")),

    checkboxInput("outliers", "Show outliers", FALSE)
  ),

  mainPanel()
))