-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
55 lines (47 loc) · 1.86 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
##########################################################
# AHP-Long-Waits Shiny Dashboard
# Original author(s): Stewart Wilson
# Original date: 2024-07-10
# Written/run on RStudio server 2022.7.2.576.12 and R 4.1.2
# Created as part of my University course.
##########################################################
# Get packages
source("setup.R")
# UI
ui <- fluidPage(
lang = "en",
tagList(
tags$style("@import url(https://use.fontawesome.com/releases/v6.1.2/css/all.css);"),
navbarPage(
id = "intabset",
title = div(tags$a(img(src = "phs-logo.png", height = 40, alt = "Go to Public Health Scotland (external site)"),
href = "https://www.publichealthscotland.scot/",
target = "_blank"
),
style = "position: relative; top: -5px;"),
windowTitle = "AHP Long Waits",
header = tags$head(includeCSS("www/styles.css"),
includeScript("www/javascript.js"),
tags$link(rel = "shortcut icon", href = "favicon_phs.ico")
),
##############################################.
# INTRO PAGE ----
##############################################.
tabPanel(title = "Introduction",
icon = icon_no_warning_fn("book-open"),
value = "intro",
uiOutput("intro_page_ui")
), # tabpanel
##############################################.
# PAGE 1 ----
##############################################.
tabPanel(title = "Breakdown",
# Look at https://fontawesome.com/search?m=free for icons
icon = icon_no_warning_fn("chart-line"),
value = "breakdown",
uiOutput("page_1_ui"),
) # tabpanel
) # navbar
) # taglist
) # ui fluidpage
### END OF SCRIPT ###