Eesp/eed setup

R/gov_colours.R

@@ -51,7 +51,8 @@ map_gov_colours <- c(
 # Test the palette
 
 check_pal <- function(
-    x = gov_cols) {
+  x = gov_cols
+) {
   if (is.numeric(x)) {
     if (length(x) > 1) {
       x <- gov_cols[x]
@@ -70,9 +71,10 @@ check_pal <- function(
 # Create a theme
 
 theme_gov <- function(
-    base_size = 12,
-    base_colour = "gray40",
-    axes = "x") {
+  base_size = 12,
+  base_colour = "gray40",
+  axes = "x"
+) {
   if (!axes %in% c("n", "x", "y", "xy")) {
     stop("axes must be one of 'n', 'x', 'y', or 'xy'")
   }

R/prerun_utils.R

@@ -1030,17 +1030,8 @@ process_attendance_data_spring <- function(attendance_data_raw, spring_start, sp
 }
 
 ### SECTION 5 - Processing Summer ####
-#' Title
-#'
-#' @param attendance_data_raw
-#' @param summer_start
-#' @param summer_end
-#' @param pa_summer_file
-#'
-#' @returns
-#' @export
-#'
-#' @examples
+# Title
+#
 process_attendance_data_summer <- function(attendance_data_raw, summer_start, summer_end, pa_summer_file, school_freq_count) {
   # Set up data for use across the app
   # Take the raw data and make columns numeric and filter to only Primary, Secondary and Special
@@ -2195,7 +2186,6 @@ create_ees_tables_summer <- function(df_attendance_summer) {
     ))
 
 
-
   cols_to_replace <- setdiff(names(EES_sum_data), c("attendance_date", "week_commencing", "day_number", "time_identifier", "total_num_schools"))
 
   EES_sum_data[cols_to_replace] <- lapply(EES_sum_data[cols_to_replace], function(col) {