From 7d9a6ce267afda25defd0d180df26ffa31010441 Mon Sep 17 00:00:00 2001
From: PATERSON <Natalie.PATERSON@EDUCATION.GOV.UK>
Date: Thu, 21 Mar 2024 16:19:27 +0000
Subject: [PATCH] Updated attainment 8 headline boxes to remove %

---
 server.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/server.R b/server.R
index 12bb4f5..bcf9a21 100644
--- a/server.R
+++ b/server.R
@@ -2623,21 +2623,21 @@ server <- function(input, output, session) {
   output$KS4_CIN_headline_txt <- renderText({
     stat <- format(outcomes_ks4 %>% filter(time_period == max(outcomes_ks4$time_period), geo_breakdown %in% input$geographic_breakdown_o1, social_care_group == "CINO at 31 March")
       %>% select(`Average Attainment 8`), nsmall = 1)
-    paste0(stat, "%", "<br>", "<p style='font-size:16px; font-weight:500;'>", "(", formatted_time_period$time_period_new, ")", "</p>")
+    paste0(stat, "<br>", "<p style='font-size:16px; font-weight:500;'>", "(", formatted_time_period$time_period_new, ")", "</p>")
   })
 
   # CPPO
   output$KS4_CPP_headline_txt <- renderText({
     stat <- format(outcomes_ks4 %>% filter(time_period == max(outcomes_ks4$time_period), geo_breakdown %in% input$geographic_breakdown_o1, social_care_group == "CPPO at 31 March")
       %>% select(`Average Attainment 8`), nsmall = 1)
-    paste0(stat, "%", "<br>", "<p style='font-size:16px; font-weight:500;'>", "(", formatted_time_period$time_period_new, ")", "</p>")
+    paste0(stat, "<br>", "<p style='font-size:16px; font-weight:500;'>", "(", formatted_time_period$time_period_new, ")", "</p>")
   })
 
   # CLA
   output$KS4_CLA_headline_txt <- renderText({
     stat <- format(outcomes_ks4 %>% filter(time_period == max(outcomes_ks4$time_period), geo_breakdown %in% input$geographic_breakdown_o1, social_care_group == "CLA 12 months at 31 March")
       %>% select(`Average Attainment 8`), nsmall = 1)
-    paste0(stat, "%", "<br>", "<p style='font-size:16px; font-weight:500;'>", "(", formatted_time_period$time_period_new, ")", "</p>")
+    paste0(stat, "<br>", "<p style='font-size:16px; font-weight:500;'>", "(", formatted_time_period$time_period_new, ")", "</p>")
   })
 
 
@@ -3105,8 +3105,8 @@ server <- function(input, output, session) {
   #   paste0(stat,"%","<br>","<p style='font-size:16px; font-weight:500;'>","(",max(ceased_cla_data$time_period),")", "</p>")
   # })
   #
-    
-  ## Headline stats ----- 
+
+  ## Headline stats -----
   output$SGO_headline_txt <- renderText({
     if (input$geographic_breakdown_o2 == "") {
       stat <- "NA"