Adding cookie header script

dfe-analytical-services · Feb 12, 2024 · 70172f4 · 70172f4
1 parent 21d5b6d
commit 70172f4
Show file tree

Hide file tree

Showing 2 changed files with 67 additions and 48 deletions.
diff --git a/R/cookies.R b/R/cookies.R
@@ -1,3 +1,22 @@
+#' cookieHeaderUI
+#'
+#' @return tags$head()
+#' @export
+#'
+#' @examples
+#' cookieHeaderUI()
+cookieHeaderUI <- function() {
+  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")
+  )
+}
+
 #' cookieBannerUI
 #'
 #' @description
@@ -13,42 +32,43 @@
 #' @export
 #'
 #' @examples
-#' cookieBannerUI("cookies", name='My DfE R-Shiny data dashboard')
-cookieBannerUI <- function(id, name = "DfE R-Shiny dashboard template"){
+#' cookieBannerUI("cookies", name = "My DfE R-Shiny data dashboard")
+cookieBannerUI <- function(id, name = "DfE R-Shiny dashboard template") {
   tags$div(
-    id=NS(id,"cookieDiv"),
-    class="govuk-cookie-banner",
-    `data-nosnippet role`="region",
-    `aria-label`="Cookies on name",
+    id = NS(id, "cookieDiv"),
+    class = "govuk-cookie-banner",
+    `data-nosnippet role` = "region",
+    `aria-label` = "Cookies on name",
     tags$div(
-      id=NS(id,"cookieMain"),
-      class="govuk-cookie-banner__message govuk-width-container",
+      id = NS(id, "cookieMain"),
+      class = "govuk-cookie-banner__message govuk-width-container",
       tags$div(
-        class="govuk-grid-row",
+        class = "govuk-grid-row",
         tags$div(
-          class="govuk-grid-column-two-thirds",
+          class = "govuk-grid-column-two-thirds",
           tags$h2(
-            class="govuk-cookie-banner__heading govuk-heading-m",
-            name),
+            class = "govuk-cookie-banner__heading govuk-heading-m",
+            name
+          ),
           tags$div(
-            class="govuk-cookie-banner__content",
+            class = "govuk-cookie-banner__content",
             tags$p(
-              class="govuk-body",
+              class = "govuk-body",
               "We use some essential cookies to make this service work."
             ),
             tags$p(
-              class="govuk-body",
+              class = "govuk-body",
               "We'd also like to use analytics cookies so we can understand
               how you use the service and make improvements."
             )
           )
         )
       ),
       tags$div(
-        class="govuk-button-group",
-        actionButton(NS(id,"cookieAccept"), label = "Accept analytics cookies"),
-        actionButton(NS(id,"cookieReject"), label =  "Reject analytics cookies"),
-        actionButton(NS(id,"cookieLink"), label = "View cookies")
+        class = "govuk-button-group",
+        actionButton(NS(id, "cookieAccept"), label = "Accept analytics cookies"),
+        actionButton(NS(id, "cookieReject"), label = "Reject analytics cookies"),
+        actionButton(NS(id, "cookieLink"), label = "View cookies")
       )
     )
   )
@@ -74,7 +94,7 @@ cookieBannerUI <- function(id, name = "DfE R-Shiny dashboard template"){
 #'
 #' @examples
 #' cookieBannerServer("cookies", input.cookies = reactive(input$cookies), input.remove = reactive(input$remove))
-cookieBannerServer <- function(id, input.cookies=NULL, input.remove=NULL) {
+cookieBannerServer <- function(id, input.cookies = NULL, input.remove = NULL) {
   moduleServer(id, function(input, output, session) {
     observeEvent(input.cookies(), {
       print(input.cookies()$`_ga_Z967JJVQQX`)
@@ -144,6 +164,5 @@ cookieBannerServer <- function(id, input.cookies=NULL, input.remove=NULL) {
       session$sendCustomMessage("analytics-consent", msg)
       print(input$cookies)
     })
-
   })
 }
diff --git a/R/standard_panels.R b/R/standard_panels.R
@@ -54,38 +54,38 @@ support_panel <- function(
             tags$a(href = paste0("mailto:", team_email), team_email, .noWS = c("after")), "."
           ),
           h2("Find more information on the data"),
-            if (ees_publication) {
-              p(
-                "The parent statistical release of this dashboard, along with methodological information, is available at the following link: ",
-                tags$a(
-                  href = paste0("https://explore-education-statistics.service.gov.uk/find-statistics/", publication_stub),
-                  ifelse(!is.null(publication_name), publication_name, "Explore Education Statistics"),
-                  .noWS = c("after")
-                ),
-                ". The statistical release provides additional ",
-                tags$a(
-                  href = paste0("https://explore-education-statistics.service.gov.uk/find-statistics/", publication_stub, "/data guidance"),
-                  "data guidance",
-                  .noWS = c("after")
-                ),
-                " and ",
-                tags$a(
-                  href = paste0("https://explore-education-statistics.service.gov.uk/find-statistics/", publication_stub,'#explore-data-and-files'),
-                  "tools to access and interogate the underling data",
-                  .noWS = c("after")
-                ),
+          if (ees_publication) {
+            p(
+              "The parent statistical release of this dashboard, along with methodological information, is available at the following link: ",
+              tags$a(
+                href = paste0("https://explore-education-statistics.service.gov.uk/find-statistics/", publication_stub),
+                ifelse(!is.null(publication_name), publication_name, "Explore Education Statistics"),
+                .noWS = c("after")
+              ),
+              ". The statistical release provides additional ",
+              tags$a(
+                href = paste0("https://explore-education-statistics.service.gov.uk/find-statistics/", publication_stub, "/data guidance"),
+                "data guidance",
+                .noWS = c("after")
+              ),
+              " and ",
+              tags$a(
+                href = paste0("https://explore-education-statistics.service.gov.uk/find-statistics/", publication_stub, "#explore-data-and-files"),
+                "tools to access and interogate the underling data",
+                .noWS = c("after")
+              ),
               " contained in this dashboard."
-              )
-            } else {
-              p(
-                "The parent statistical release of this dashboard, along with methodological information, is available at the following link: ",
-                a(
+            )
+          } else {
+            p(
+              "The parent statistical release of this dashboard, along with methodological information, is available at the following link: ",
+              a(
                 href = alt_href,
                 publication_name,
                 .noWS = c("after")
               )
-              )
-            },
+            )
+          },
           h2("Contact us"),
           p(
             "If you have questions about the dashboard or data within it, please contact us at ",