shinyUI(pageWithSidebar(
  
  # Application title
  headerPanel("TV Show Rankings"),
  
  # Sidebar with information, controls to select the player and a best-of table
  sidebarPanel(
   
    
    helpText(
      p("Choose from one of 145 popular TV shows to see episode ranking by ",a("GEOS", href="http://www.geos.tv/")," members.")
      ),

   
    wellPanel(
      selectInput("show", "Select Show:",showSelection)
  
      ),
  
    

    
    p("Regular Articles - ",
      a("PSS blog", href="http://premiersoccerstats.com/wordpress/")
    ),
    
    p("Twitter Feed - ",
      a("@pssguy", href="http://twitter.com/pssGuy")
    ),
    
    
    
    p("Contact - ",
      a( "andy@premiersoccerstats.com", href="mailto:andy@premiersoccerstats.com"))
      
  
),
  

mainPanel(
  tabsetPanel(
  
    tabPanel("Chart", plotOutput("plot"),htmlOutput("notes")), # no good , height="200px"
    tabPanel("Sortable Table", htmlOutput("gvisTable"))
               
  ) 

  )
))