-
Notifications
You must be signed in to change notification settings - Fork 12
/
Copy pathui.R
118 lines (96 loc) · 6.32 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
# 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(
bootstrapPage(tags$head(includeScript("google-analytics.js")),
dashboardPage(#tags$head(includeScript()),
skin = 'green',
dashboardHeader(title = HTML(paste(icon('globe'),'geoExploreR'))
# a(icon('github fa-2x'),href='https://github.com/davesteps/homebrewR'),
# a(icon('twitter fa-2x'),href='https://twitter.com/davesteps')
),
dashboardSidebar(
selectInput('dataset',label = 'Dataset',
choices = c('Quakes','Meuse','Jura','Fulmar')),
# selectInput('xvar',label='x Var',choices = names(meuse@data),selected = names(meuse@data)[1]),
# selectInput('yvar',label='y Var',choices = names(meuse@data),selected = names(meuse@data)[2]),
# selectInput('color',label='Color Var',choices = names(meuse@data),selected = names(meuse@data)[1]),
#
uiOutput('xvar'),
uiOutput('yvar'),
uiOutput('cvar'),
selectInput("pal", "Color palette",selected = 'BrBG',
rownames(subset(brewer.pal.info, category %in% c("seq", "div")))),
uiOutput("ui"),
absolutePanel(
bottom = 10,
left = 10,
draggable = F,
width='100%',
height='auto',
p(a(icon('github fa-2x'),href='https://github.com/davesteps/geoExploreR',target='_blank')),
HTML("<div style='float:center'>
<a href='https://twitter.com/share'
class='twitter-share-button'
align='middle'
data-url='davesteps.com/geoExploreR/'
data-text='created by @davesteps using #rstats and #shiny: davesteps.com/geoExploreR/'
data-size='large'>Tweet
</a>
<script>!function(d,s,id){
var js,fjs=d.getElementsByTagName(s)[0],p=/^http:/.test(d.location)?'http':'https';
if(!d.getElementById(id)){
js=d.createElement(s);
js.id=id;
js.src=p+'://platform.twitter.com/widgets.js';
fjs.parentNode.insertBefore(js,fjs);
}
}(document, 'script', 'twitter-wjs');
</script>
</div>")
# a(icon('github fa-2x'),href='https://github.com/davesteps/geoExploreR',target='_blank')
# a(icon('twitter fa-2x'),href='https://twitter.com/davesteps',target='_blank')
)
),
dashboardBody(
# tabItems(
# tabItem("dash",
# box(width=2,status = 'success',
# selectInput('dataset',label = 'Dataset',
# choices = c('Quakes','Meuse','Jura','Fulmar')),
# # selectInput('xvar',label='x Var',choices = names(meuse@data),selected = names(meuse@data)[1]),
# # selectInput('yvar',label='y Var',choices = names(meuse@data),selected = names(meuse@data)[2]),
# # selectInput('color',label='Color Var',choices = names(meuse@data),selected = names(meuse@data)[1]),
# #
# uiOutput('xvar'),
# uiOutput('yvar'),
# uiOutput('cvar'),
#
# selectInput("pal", "Color palette",selected = 'BrBG',
# rownames(subset(brewer.pal.info, category %in% c("seq", "div")))),
# uiOutput("ui")
#
#
# ),
#
box(width = 6,status = 'warning',
div(style = "height: 450px;",
ggvisOutput("p")),
fluidRow(
column(width=6,
div(style = "height: 200px;",
ggvisOutput("p2"))),
column(width=6,
div(style = "height: 200px;",
ggvisOutput("p3")))
)
),
box(width = 6,status = 'warning',
leafletOutput("map",height = 650)
)
)
)
)
)