Footer links (#115)

* commit having rebuilt from old

* terra library updated

* add builds into github workflow

* rebuild lock file

* another terra change

* terra before renv snapshot

* with units deps too

* link and connections through footer

* adding extra libgdal1

* rem libgdal1

* messing about with terra stuff again

* terra again

* extra footer links

* blank space removal for styler

.github/workflows/deploy-shiny.yaml

@@ -11,4 +11,4 @@ jobs:
       parameter_file: deploy-parameters.yaml
     secrets:
       SHINYAPPS_SECRET: ${{ secrets.SHINYAPPS_SECRET }}
-      SHINYAPPS_TOKEN: ${{ secrets.SHINYAPPS_TOKEN }}
+      SHINYAPPS_TOKEN: ${{ secrets.SHINYAPPS_TOKEN }}

R/read_data.R

@@ -34,6 +34,7 @@ read_revenue_data <- function(file = "data/la_maintained_schools_revenue_reserve
 }
 
 # Upper Tier data ----------------------------------------------------------------
+
 read_upper_tier_data <- function(file = "data/Local_Authority_Districts_All_simplified.geojson") {
   df_upper_tier <- sf::read_sf(file)
   return(df_upper_tier)

server.R

@@ -276,6 +276,19 @@ server <- function(input, output, session) {
     paste0("Current selections: ", input$selectPhase, ", ", input$selectArea)
   })
 
+  # footer links -----------------------
+  shiny::observeEvent(input$accessibility_statement, {
+    shiny::updateTabsetPanel(session, "navlistPanel", selected = "a11y_panel")
+  })
+
+  shiny::observeEvent(input$cookies, {
+    shiny::updateTabsetPanel(session, "navlistPanel", selected = "cookies_panel_ui")
+  })
+
+  shiny::observeEvent(input$support_and_feedback, {
+    shiny::updateTabsetPanel(session, "navlistPanel", selected = "support_panel_ui")
+  })
+
   # Stop app ------------------------------------------------------------------
   session$onSessionEnded(function() {
     stopApp()

ui.R

@@ -131,6 +131,9 @@ ui <- function(input, output, session) {
     ),
 
     # Footer ------------------------------------------------------------------
-    footer(full = TRUE)
+    shinyGovstyle::footer(
+      full = TRUE,
+      links = c("Accessibility statement", "Cookies", "Support and feedback")
+    )
   )
 }