forked from UtahHydroinformatics/ProvoInfo
-
Notifications
You must be signed in to change notification settings - Fork 1
/
ui.R
43 lines (36 loc) · 1.28 KB
/
ui.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
# This is the user-interface definition of a Shiny web application.
# You can find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com
#
shinyUI(fluidPage(
# Application title
titlePanel("Middle and Lower Provo River Compliance App"),
# Sidebar with user input controls
sidebarLayout(
sidebarPanel(
selectInput(inputId="site",
label = "Site",
choices = unique(Provo_River$SiteName),
selected = NULL,
multiple = FALSE,
selectize = TRUE,
width = NULL,
size = NULL),
checkboxGroupInput(inputId='param', label=h3("Parameter to Plot"),
choices = list('Temperature (C)'= 'Temperature_C',
'Flow (cfs)'='Flow_cfs',
'Dissolved Oxygen (mg/L)'= 'Dissolved_Oxy'),
selected = 1),
hr(),
dateRangeInput("dates", label = h3("Date range"))
),
# Show outputs, text, etc. in the main panel
mainPanel(
textOutput("selected_var"),
plotOutput("wqplot"),
leafletOutput("mymap"),
p()
)
)
))