-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathui.R
More file actions
160 lines (128 loc) · 6.43 KB
/
ui.R
File metadata and controls
160 lines (128 loc) · 6.43 KB
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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
#########################################################################################
#load necessary packages
#########################################################################################
require("shiny")
require("shinydashboard")
require("leaflet")
require("dplyr")
require("plotly")
require("ggplot2")
require("tidyverse")
dados <- read_csv("2018_09_04_dados.csv")
#########################################################################################
#lCreating a page layout
#########################################################################################
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem("Home", tabName = "Home", icon = icon("home")),
menuItem("Sites", tabName = "Sites", icon = icon("globe")),
menuItem("Descripitive", tabName = "desc", icon = icon("signal")),
menuItem("Richness", tabName = "Sr", icon = icon("bug"))
)
)
body <- dashboardBody(
tabItems(
tabItem(tabName = "Home",
#Create boxing for general information
tags$img(src = "Carrapato.png",width = "640px", height = "480px"),
tags$h1("Some nice text about ticks"),
tags$blockquote("Lorem ipsum dolor sit amet, consectetur adipiscing elit.
Curabitur dictum justo ac dignissim ornare. Ut porttitor purus ac eros varius, sit amet venenatis augue imperdiet.
Nullam rutrum vel quam vitae laoreet. Phasellus ut lacus nec nibh facilisis condimentum a in diam. Duis vitae lectus
vitae nisi faucibus ullamcorper. Nam tincidunt magna ex. Pellentesque tempor lectus vel lectus condimentum convallis
non vitae ex. Phasellus sagittis elementum laoreet. Vivamus arcu mi, feugiat sollicitudin tortor vel, consectetur
vehicula leo. Quisque eros mi, dictum quis lectus nec, pretium ultrices nulla. Donec vitae libero aliquam,
porta odio ac, tincidunt dui. Praesent in tempor eros."),
tags$blockquote("Lorem ipsum dolor sit amet, consectetur adipiscing elit.
Curabitur dictum justo ac dignissim ornare. Ut porttitor purus ac eros varius, sit amet venenatis augue imperdiet.
Nullam rutrum vel quam vitae laoreet. Phasellus ut lacus nec nibh facilisis condimentum a in diam. Duis vitae lectus
vitae nisi faucibus ullamcorper. Nam tincidunt magna ex. Pellentesque tempor lectus vel lectus condimentum convallis
non vitae ex. Phasellus sagittis elementum laoreet. Vivamus arcu mi, feugiat sollicitudin tortor vel, consectetur
vehicula leo. Quisque eros mi, dictum quis lectus nec, pretium ultrices nulla. Donec vitae libero aliquam,
porta odio ac, tincidunt dui. Praesent in tempor eros.")
),
tabItem(tabName = "Sites",
fluidRow(
#Ploting map inside this box
box(
solidHeader = TRUE, background = "green", width = 13,
height = 900,
leafletOutput(outputId = "mapa", height = 875))
)
),
tabItem(tabName = "desc",
fluidRow(
#Create whitaker plot
box(
solidHeader = TRUE, width = 6,
height = 450, background = "green",
plotlyOutput("wihtakker", height = 435)
),
box(
solidHeader = TRUE, width = 6,
height = 450, background = "green",
plotlyOutput("prop_plot", height = 435)
),
box(
solidHeader = TRUE, width = 2,
height = 450, background = "green",
selectInput(inputId = "sel_species", label = "Select a specie",
choices = c("All", unique(dados$Especie)),
selected = "All"),
selectInput(inputId = "sel_stage", label = "Select a stage",
choices = c("Adult", "Nymph", "All"),
selected = "All")
),
box(
solidHeader = TRUE, width = 10,
height = 450, background = "green",
plotlyOutput("ts_plot", height = 435)
)
)),
tabItem(tabName = "Sr",
fluidRow(
#Create hill numbers plot
box(
solidHeader = TRUE, width = 6,
height = 920, background = "green",
selectInput(inputId = "sel_hill", label = "Select a indicator",
choices = c("Sample coverage", "Species richness",
"Shannon diversity","Simpson diversity"),
selected = "Sample coverage"),
plotOutput("hill_plot", height = 460),
br(),
br(),
br(),
tableOutput("table1")
),
box(
solidHeader = TRUE, width = 6,
height = 300, background = "green",
selectInput(inputId = "sel_com", label = "Select a stage",
choices = c("All", "Adult","Nymph"),
selected = "All"),
tableOutput("table2")
),
box(
solidHeader = TRUE, width = 6,
height = 600, background = "green",
imageOutput("image")
)
))
),
tags$head(
tags$style(HTML("
.content-wrapper {
background-color: linen !important;
}
.main-sidebar {
background-color: #2ca25f !important;
}
")))
)
dashboardPage(
skin = "green",
dashboardHeader(title = "Ticks surveillance"),
sidebar,
body
)