CADataApp/ui.R

In cahhansen/Shiny-WaDE-Data-Explorer: Shiny WaDE Data Explorer

# ui.R

shinyUI(
  fluidPage(
    theme="bootstrapdarkly.css",
    titlePanel("California Water Supply and Water Use Data Exploration"),
           sidebarLayout(
             sidebarPanel(
               img(src='CADWRLogo.png', align = "left",height=100,width=100),
               helpText("Explore water supply and water use as reported by the 
          California Department of Water Resources. Note that data may not
          be available for all years or reporting units."),
               sliderInput(inputId = "year", 
                           label = "Select a year to display:",
                           min=2010,max=2010,round=TRUE,ticks=FALSE,value=2010,sep=""),
               selectInput(inputId = "reportingunit",
                           label = "Select a reporting unit:",
                           choices = c("Fetching Reporting Units"),
                           selected = "Fetching Reporting Units"),
               selectInput(inputId = "displaytype",
                           label = "Display summary data as:",
                           choices = c("Barplot","Pie Chart","Dotplot"))
             ),
             mainPanel(
              tabsetPanel(
                 tabPanel("Water Supply", 
                          plotOutput(outputId="WSplot"),height="400px",
                          br(),
                          tableOutput("WStable")
                 ),
                 tabPanel("Water Use", 
                          plotOutput(outputId="WUplot"),height="400px",
                          br(),
                          tableOutput("WUtable")
                 ),
                 tabPanel("Method Information", 
                          textOutput(outputId="WUmethod")
                 )
              )
            )
          )
  )
)