surnames/ui.R

#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
# 
#    http://shiny.rstudio.com/
#

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(
  
  # Application title
  titlePanel("Surname Navigator"),
  
  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(width = 3,
      selectInput('user', label = "Your Name", choices = c('Ryan', 'Garrick')),
      textInput('baby', label = 'Baby Name', value = 'August'),
      selectInput('cluster', label = "Name Combo", 
                  choices = c("All", "Favorites - Ryan", "Favorites - Garrick", CLUSTER_NAMES)),
      selectizeInput('surname', label = 'Surname', choices = surnames.final$surname),
      actionButton('next_name', label = 'Next', width = '32%', class = 'btn-primary'),
      actionButton('random_name', label = 'Random', width = "32%", class = 'btn-info'),
      actionButton("like", label = 'Like!', width = "32%",
                   icon = icon("thumbs-o-up"), class = 'btn-success')
    ),
    
    # Main Panel
    mainPanel(width = 9,
      tabsetPanel(
        tabPanel('Name Info',
                 tags$h1(htmlOutput('t_header', inline = TRUE)),
                 tags$h3(htmlOutput('t_othername', inline = TRUE)),
                 tags$hr(),
                 fluidRow(
                   column(6, plotOutput("p_radar", height = '200px')),
                   column(6, tags$p(htmlOutput('t_body', inline = TRUE), class = "h3"))
                 ),
                 tags$hr(),
                 fluidRow(
                   column(10,
                          tags$h3('Definition'),
                          htmlOutput('forebears_name'),
                          tags$p(htmlOutput('link_forebears'), inline = TRUE)
                   )
                 )
        ),
        tabPanel("Explore Group",
                 dataTableOutput('t_surnames'))
      )
    )
  )
))