WyomingDataApp/ui.R

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

# ui.R

shinyUI(fluidPage(theme="bootstrapdarkly.css",
  titlePanel("Wyoming Water Use Data Viewer"),
  
  sidebarLayout(
    sidebarPanel(
      helpText("Explore water use by sector."),
      selectInput(inputId = "reportingunit",
                  label = "Select a reporting unit:",
                  choices = c("Fetching Reporting Units"),
                  selected = "Fetching Reporting Units")
    ),
    
    mainPanel(
      plotOutput(outputId="CUplot"),height="400px",
      tableOutput("table"),
      textOutput(outputId="CUmethod")
    )
  )
))