-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathui.R
161 lines (122 loc) · 7.73 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
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
161
library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(DT)
library(gdata)
library(data.table)
library(leaflet)
library(ggplot2)
library(dplyr)
library(magrittr)
library(lubridate)
library(readr)
shinyUI(tagList(
dashboardPage(skin = "blue",
dashboardHeader(title = "AB test Dashboard"),
dashboardSidebar(width = 240, sidebarMenu(
menuItem("Instructions", tabName = "genIns", icon = icon("info-circle")),
menuItem("Data", tabName = "uploadData", icon = icon("table")),
menuItem("Data Explorer", tabName = "explore", icon = icon("bar-chart-o")),
menuItem("Map", tabName = "carte", icon = icon("fa fa-eercast")),
menuItem("Dynamic Allocation ", tabName = "algo", icon = icon("fa fa-cog"))
)
),
dashboardBody(
tabItems(
tabItem(tabName = "genIns",
fluidPage(
titlePanel("General Instruction will go here"),
textOutput("currentTime"),
br(),
box(width = 15, status = "primary",background = "navy",
h4("Content"),
h5("The NTSB aviation accident database contains information from 1962 and later about civil aviation accidents and selected incidents within the United States,
its territories and possessions, and in international waters."),
br(),
h4("Acknowledgements"),
h5("Generally, a preliminary report is available online within a few days of an accident. Factual information is added when available,
and when the investigation is completed, the preliminary report is replaced with a final description of the accident and its probable cause.
Full narrative descriptions may not be available for dates before 1993, cases under revision, or where NTSB did not have primary investigative
responsibility."),
br(),
h4("Source:", a("Kaggle", href="https://www.kaggle.com/khsamaha/aviation-accident-database-synopses/data"))),
br(),
box(width = 15, status = "primary",background = "navy",
h5("This Application is powered by XX", a("LinkedIn", href="https://www.linkedin.com/in/jehan-drissi-360409124/"))
)
)
),
# First tab content
tabItem(tabName = "uploadData",
box(width = 15, status = "primary",background = "navy",
numericInput("obs", "Number of observations to view:", 50)),
br(),
fluidRow(
box( width = 30, status = "primary",
div(style = 'overflow-x: scroll',dataTableOutput('cont'))))
),
tabItem(tabName = "explore",
fluidPage(
titlePanel("Aviation data explorer"),
fluidRow(
column(3,
plotOutput("plot4"),
wellPanel(
)
),
column(9,
plotOutput("plot3"),
wellPanel(
span("Number of flights selected:",
textOutput("n_accident")
)
)
)
),
fluidRow(
#column(12 ,plotOutput("plot2"))
column(9,
plotOutput("plot1"),
wellPanel(
p("Number of flights selected:"
)
)
)
)
)
),
tabItem(tabName = "carte",
uiOutput("mapVars"),
h5("Use the Zoom for more details"),
leafletOutput("mymap")
),
tabItem(tabName = "algo",
fluidPage(
titlePanel("todo"),
# br(),
fluidRow(
column(9,
box(width = 7, status = "primary",background = "navy",
h4("Content"),
h5("The NTSB aviation accident database contains information from 1962 and later about civil aviation accidents and selected incidents within the United States,
its territories and possessions, and in international waters."),
br(),
h4("Acknowledgements"),
h5("Generally, a preliminary report is available online within a few days of an accident. Factual information is added when available,
and when the investigation is completed, the preliminary report is replaced with a final description of the accident and its probable cause.
Full narrative descriptions may not be available for dates before 1993, cases under revision, or where NTSB did not have primary investigative
responsibility."),
br(),
h4("Source:", a("Kaggle", href="https://www.kaggle.com/khsamaha/aviation-accident-database-synopses/data")))
),
column(3,
plotOutput("plot2"),
wellPanel(
)
)
)
)
)
)
)
)))