-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathui.R
120 lines (105 loc) · 9.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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
ui <- fluidPage(
useShinyalert(),
sidebarLayout(
sidebarPanel(width=2,
fluidRow(
img(src="https://github.com/mosscoder/climpart/blob/master/cpnpp_logo.png?raw=true", height=81, width='100%'),
img(src="https://github.com/mosscoder/climpart/blob/master/usgs.log.png?raw=true", height=81, width='100%'),
tags$div(id = 'selectDiv', selectInput("boundSelect",
label = ("How would you like to define your area of interest?"),
choices = list("Lat/Long Slider Bars" = "slider",
"Spatial Polygon" = "poly"),
selected = "slider")),
tooltip(refId = 'selectDiv', "Analyses limited to land masses of North America."),
conditionalPanel( condition = "input.boundSelect == 'poly'",
tags$div(id = 'polyDiv', fileInput("boundFile2",
label = "Upload spatial polygon:",
accept = ".zip"))),
tooltip(refId = 'polyDiv', 'Compress the following components into a .zip file:<br><br>.shp<br>.shx<br>.prj<br>.dbf'),
conditionalPanel(condition = "input.boundSelect == 'slider'",
sliderInput("lat.range",
label = "Latitude Extent",
min = 7, max = 83, step = 0.1,
value=c(32,40))),
conditionalPanel(condition = "input.boundSelect == 'slider'",
sliderInput("lon.range",
label = "Longitude Extent",
min =-168, max = -52, step = 0.1,
value=c(-115,-105))),
sliderInput("cluster.num", label = "Number of climate partitions:",
ticks = F, value=5, min = 1, max = 50, step = 1),
HTML(paste0('<button data-toggle="collapse" class="btn btn-default" id="wtButton"
data-target="#demo"><img src="https://github.com/mosscoder/climpartUploadTest/blob/master/scale.png?raw=true" height = 20, width 20/><span>Weight Variables</span></button>')),
tags$style(type = "text/css", "#wtButton {width: 100%; display: inline-block; padding: 5px; margin: 2px;}"),
tags$div(id = 'demo', class="collapse out",
sliderInput("wtMAT", label = "Mean Annual Temperature",
ticks = F, value=1, min = 0, max = 1, step = .01),
sliderInput("wtDiurnal", label = "Diurnal Range",
ticks = F, value=1, min = 0, max = 1, step = .01),
sliderInput("wtTSeason", label = "Temperature Seasonality",
ticks = F, value=1, min = 0, max = 1, step = .01),
sliderInput("wtTWet", label = "Temperature Wettest Qtr.",
ticks = F, value=1, min = 0, max = 1, step = .01),
sliderInput("wtMAP", label = "Mean Annual Precipitation",
ticks = F, value=1, min = 0, max = 1, step = .01),
sliderInput("wtPSeason", label = "Precipitation Seasonality",
ticks = F, value=1, min = 0, max = 1, step = .01),
sliderInput("wtPWarm", label = "Precipitation Warmest Qtr.",
ticks = F, value=1, min = 0, max = 1, step = .01)
),
tooltip(refId ='wtButton', 'Change the importance of any variable during similarity calculations. Weights set to 0.5 have half the importance relative to 1, 0.25 a quarter, and 0.1 a tenth. '),
actionButton("goButton", label=HTML("<b>Generate Partitions</b>")),
downloadButton('downloadData', 'Download Data', style = ' width: 100%; margin: 2px;'),
tooltip(refId ='downloadData',
"Click to download analysis products (opens a new tab). Includes: raster overlays, climate center data, and within-assignment distribution boxplots."),
hr(),
actionButton('moreInfo', label = HTML("<font size = 2><b>Contact Info & Disclaimer</b></font>")),
tags$style(type = "text/css", "#goButton{background-color: #18B66A; color: #fff; border-color: #ffffff; width: 100%;margin: 2px;}
#goButton:hover{background-color: #1EE285;}
#moreInfo{background-color: #008CBA; color: #fff;border-color: #ffffff; width: 100%;margin: 2px; padding:5px}
#moreInfo:hover{background-color: #00B1ED;}")
)),
mainPanel(width = 10,
tabsetPanel(id = "tabs",
tabPanel("Map", id="map", leafletOutput("leaf",width="100%", height = "700px") %>% withSpinner(size = 3)),
tabPanel("Climate Center Data", dataTableOutput("centerTable")),
tabPanel("Within-Assignment Distributions", id="box",
fluidRow(
column(2,selectInput("ggVar1", label = ("Variable 1"),
choices = list("MAT" = "MAT",
"DiurnalRange" = "DiurnalRange",
"TSeasonality" = "TSeasonality",
"TWettestQtr" = "TWettestQtr",
"MAP" = "MAP",
"PSeasonality" = "PSeasonality",
"PWarmestQtr" = "PWarmestQtr"),
selected = "MAT")),
column(2,selectInput("ggVar2", label = ("Variable 2"),
choices = list("MAT" = "MAT",
"DiurnalRange" = "DiurnalRange",
"TSeasonality" = "TSeasonality",
"TWettestQtr" = "TWettestQtr",
"MAP" = "MAP",
"PSeasonality" = "PSeasonality",
"PWarmestQtr" = "PWarmestQtr"),
selected = "MAP")),
column(2,selectInput("ggVar3", label = ("Variable 3"),
choices = list("MAT" = "MAT",
"DiurnalRange" = "DiurnalRange",
"TSeasonality" = "TSeasonality",
"TWettestQtr" = "TWettestQtr",
"MAP" = "MAP",
"PSeasonality" = "PSeasonality",
"PWarmestQtr" = "PWarmestQtr"),
selected = "PSeasonality"))),
plotOutput("boxPlot", height=650) %>% withSpinner( size = 3)),
tabPanel("Background and Use",id = "background",
HTML('<p align="center"><iframe width="750px" height="500px" src="https://www.youtube.com/embed/9K5Vg70o1rc" frameborder="10" allow="autoplay; encrypted-media" allowfullscreen></iframe></p>'),
textOutput('instruct')
),
tabPanel("Run Offline", id="offline",
tags$iframe(src='https://rawgit.com/mosscoder/climpart/master/offlineInstructions.html',
width = "100%", height = "1000px", style="border:0"))
))
)
)