-
Notifications
You must be signed in to change notification settings - Fork 21
/
Copy pathui.R
103 lines (90 loc) · 5.76 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
library(shiny)
library(rMaps)
library(rCharts)
library(ggmap)
library(markdown)
shinyUI(navbarPage(title = "R User Groups Around the World",
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## HTML Layout Settings
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Use a customized bootstrap theme
theme = 'bootstrap.css',
collapsable = TRUE,
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Tab "About"
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tabPanel("About", includeMarkdown("doc/intro.md")),
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Tab "Maps"
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
navbarMenu("Maps",
tabPanel("All R User Groups (140)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_all', 'leaflet')),
tabPanel("Europe (49)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_europe', 'leaflet')),
tabPanel("United States (49)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_usa', 'leaflet')),
tabPanel("--------------------"),
tabPanel("Asia (20)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_asia', 'leaflet')),
tabPanel("North America (56)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_n_america', 'leaflet')),
tabPanel("Middle East / Africa (4)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_mea', 'leaflet')),
tabPanel("Oceania (7)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_oceania', 'leaflet')),
tabPanel("South / Central America (4)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_sc_america', 'leaflet')),
tabPanel("--------------------"),
tabPanel("Australia (5)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_australia', 'leaflet')),
tabPanel("Canada (7)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_canada', 'leaflet')),
tabPanel("Germany (9)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_germany', 'leaflet')),
tabPanel("India (5)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_india', 'leaflet')),
tabPanel("Japan (5)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_japan', 'leaflet')),
tabPanel("United Kingdom (8)",
tags$style('.leaflet {height: 600px;}'),
showOutput('map_uk', 'leaflet'))
),
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Tab "Data"
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
navbarMenu("Data",
tabPanel("Data (Original)",
HTML("<h3>Original RUGs Data from Revolution Analytics</h3>"),
downloadButton('dl_ori', 'Download CSV'),
HTML("<p> <br></p>"),
dataTableOutput("data_original")
),
tabPanel("Data (Modified)",
HTML("<h3>Modified RUGs Data with Lat/Lon Info</h3>"),
downloadButton('dl_mod', 'Download CSV'),
HTML("<p> <br></p>"),
dataTableOutput("data_modified")
)
),
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Tab "More"
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
navbarMenu("More",
tabPanel("Code", includeMarkdown("doc/code.md")),
tabPanel("Contact", includeMarkdown("doc/contact.md"))
)
))