-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathui.R
112 lines (112 loc) · 3.7 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
# -----------------------------------------------------------------------------
# This is the ui file. Use it to call elements created in your server file into
# the app, and define where they are placed, and define any user inputs.
#
# Other elements like charts, navigation bars etc. are completely up to you to
# decide what goes in. However, every element should meet accessibility
# requirements and user needs.
#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
# The documentation for GOV.UK components can be found at:
#
# https://github.com/moj-analytical-services/shinyGovstyle
#
# -----------------------------------------------------------------------------
ui <- function(input, output, session) {
fluidPage(
title = tags$head(
tags$link(
rel = "shortcut icon",
href = "dfefavicon.png"
),
# Add title for browser tabs
tags$title("Department for Education (DfE) Shiny Template")
),
use_shiny_title(),
tags$html(lang = "en"),
# Add meta description for search engines
meta() %>%
meta_general(
application_name = "Department for Education (DfE) Shiny Template",
description = "Department for Education (DfE) Shiny Template",
robots = "index,follow",
generator = "R-Shiny",
subject = "stats development",
rating = "General",
referrer = "no-referrer"
),
shinyjs::useShinyjs(),
# Variables used here are dset in the global.R file
dfeshiny::custom_disconnect_message(
links = sites_list,
publication_name = parent_pub_name,
publication_link = parent_publication
),
useShinydashboard(),
# Setting up cookie consent based on a cookie recording the consent:
# https://book.javascript-for-r.com/shiny-cookies.html
tags$head(
tags$script(
src = paste0(
"https://cdn.jsdelivr.net/npm/js-cookie@rc/",
"dist/js.cookie.min.js"
)
),
tags$script(src = "cookie-consent.js")
),
tags$head(includeHTML(("google-analytics.html"))),
tags$head(
tags$link(
rel = "stylesheet",
type = "text/css",
href = "dfe_shiny_gov_style.css"
)
),
shinyGovstyle::cookieBanner("Department for Education (DfE) R-Shiny dashboard template"),
shinyGovstyle::header(
main_text = "",
main_link = "https://www.gov.uk/government/organisations/department-for-education",
secondary_text = "Department for Education (DfE) Shiny Template",
logo = "images/DfE_logo_landscape.png",
logo_width = 150,
logo_height = 32
),
shinyGovstyle::banner(
"beta banner",
"beta",
paste0(
"This Dashboard is in beta phase and we are still reviewing performance
and reliability. ",
"In case of slowdown or connection issues due to high demand, we have
produced two instances of this site which can be accessed at the
following links: ",
"<a href=", site_primary, " id='link_site_1'>Site 1</a> and ",
"<a href=", site_overflow, " id='link_site_2'>Site 2</a>."
)
),
shiny::navlistPanel(
"",
id = "navlistPanel",
widths = c(2, 8),
well = FALSE,
example_tab_1_panel(),
user_guide_panel(),
a11y_panel(),
support_panel(
team_email = "[email protected]",
repo_name = "https://github.com/dfe-analytical-services/shiny-template",
form_url = "https://forms.office.com"
)
),
tags$script(
src = "script.js"
),
footer(full = TRUE)
)
}