-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.r
44 lines (39 loc) · 1.02 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
library(shinydashboard)
library(leaflet)
header <- dashboardHeader(
title = "Toronto Sexual Health Clinics",
titleWidth = 300
)
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem("", icon = icon("map"), tabName = "dashboard"),
menuItem("", icon = icon("info-circle"), tabName = "about")
),
width = 50
)
body <- dashboardBody(
tabItems(
tabItem(tabName = "dashboard",
fluidRow(
box(width = 8, solidHeader = TRUE,
leafletOutput("map", height = 500)),
column(width = 4,
box(title = "All clinics offer:", width = NULL,
tableOutput("services")))
),
fluidRow(
uiOutput("clinic_details_ui"),
uiOutput("drop_in_hours_ui"),
uiOutput("appointment_hours_ui"),
uiOutput("services_unique_ui")
)
),
tabItem(tabName = "about", includeMarkdown("about.md")
)
)
)
dashboardPage(
header,
sidebar,
body
)