# 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")
)
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.