Data: Statistical Neighbours updated, along with banner message. (#92)

* Data: Statistical Neighbours updated, along with banner message.

* Revised SVGlite version

* SVGlite version moved to 2.2.1

---------

Co-authored-by: STOKER <[email protected]>

Author: ArthurMurrell

01_data/02_prod/banner_update.csv

@@ -1,2 +1,2 @@
 "Data update","Date"
-"Welcome! New data includes LAC & CIN outcomes and Level 2 & 3 2024",2025-05-02
+"Welcome! Statistical Neighbour groupings revised following a review, and publication of 2021 census.  See LAIT gov.uk landing page for further details.",2025-05-28

01_data/02_prod/bds_long_0.parquet

@@ -180,7 +180,7 @@ server_dev <- function(input, output, session) {
       # Include all rows if no topic is selected or "All topics" is selected
       filtered_topic_bds <- bds_metrics |>
         dplyr::filter(
-          if (is.null(input$topic_input) || "All topics" %in% input$topic_input) {
+          if (is.null(input$topic_input) | "All topics" %in% input$topic_input) {
             TRUE
           } else {
             .data$Topic %in% input$topic_input # Filter by selected topic(s)

01_data/02_prod/sn_april_2021.xlsx

@@ -213,7 +213,7 @@ get_quartile_band_cell_colour <- function(data_polarity, data_quartile_band) {
     TRUE ~ "none"
   )
 
-  return(matching_colour)
+  matching_colour
 }
 
 

01_data/02_prod/sn_may_2025.xlsx

@@ -31,7 +31,7 @@ expandable <- function(input_id, label, contents) {
     shiny::tags$div(contents)
   )
 
-  return(gov_details)
+  gov_details
 }
 
 
@@ -727,10 +727,10 @@ rename_columns_with_year <- function(df) {
   new_names <- sapply(names(df), function(col) {
     if (grepl("^\\d{4}", col)) {
       # Extract the first 4 digits
-      return(substr(col, start = 1, stop = 4))
+      substr(col, start = 1, stop = 4)
     } else {
       # Return the original name if it doesn't start with 4 digits
-      return(col)
+      col
     }
   })
 
@@ -987,5 +987,5 @@ format_text <- function(text) {
   # Convert to HTML
   text <- HTML(text)
 
-  return(text)
+  text
 }

02_dev/la_level_page/la_dev_app.R

@@ -274,7 +274,7 @@ calculate_file_size <- function(file_type, data) {
   rounded_file_size <- round(file_size_kb, 2)
 
   unlink(temp_file) # Remove the temporary file
-  return(paste0(rounded_file_size, " KB"))
+  paste0(rounded_file_size, " KB")
 }
 
 
@@ -390,7 +390,7 @@ update_and_fetch_metadata <- function(input_indicator,
   # Update the previous value in the reactive storage
   reactive_storage[[key]] <- metadata
 
-  return(metadata)
+  metadata
 }
 
 

R/fn_analysis.R

@@ -783,7 +783,7 @@ get_trend_colour <- function(value, polarity) {
     TRUE ~ "black"
   )
 
-  return(list(color = trend_colour))
+  list(color = trend_colour)
 }
 
 

R/fn_helper_functions.R

@@ -528,7 +528,7 @@ user_guide_panel <- function() {
                   add_warning = TRUE
                 ),
                 HTML(
-                  " landing page for further details.
+                  " landing page for further details about the 2025 refresh.
                   <br>
                   <br>
                   These neighbour groupings are used in this tool to allow