From Big Data meetup 10-9-2013

app.css

.well {
  width: 250px;
}

server.R

library(shiny)

shinyServer(function(input, output) {
  

  output$plotOut <- renderPlot({
      hist(faithful$eruptions, breaks=as.numeric(input$nBreaks))
      if(input$individualObs){
          rug(faithful$eruptions)
      }

    })

  output$tableOut <- renderTable({
        if(input$individualObs){
          faithful
        }
        else{
          NULL
        }
    })
})

ui.R

  # Application title
  customHeaderPanel <- function(title,windowTitle=title){
  tagList(
    tags$head(
      tags$title(windowTitle),
      tags$link(rel="stylesheet", type="text/css",
                href="app.css")
      
      
    ), 
    div(class = "span12", style = "padding: 10px 0px;", h1(title))
  )
}


shinyUI(pageWithSidebar(

customHeaderPanel(title="Test"),
 
  sidebarPanel(
    
      numericInput("nBreaks", "Number of Breaks", 10),
      checkboxInput("individualObs", "Show Individual Observations", FALSE) 
    ),

  mainPanel(
      plotOutput('plotOut', width=700),
      tableOutput('tableOut')
  ))
)