Merge pull request #73 from dfe-analytical-services/cosmetic_changes/…

…text

Cosmetic changes/text

R/intro_panel.R

@@ -68,7 +68,8 @@ introductionPanel <- function() {
  tags$li(a(href = "https://www.ons.gov.uk/datasets/TS021/editions/2021/versions/3", "ONS - Census, Ethnic groups (last updated: 28 March 2023)", style = "font-family: GDS Transport, arial, sans-serif; font-size :19px;")),
  tags$li(a(href = "https://www.ons.gov.uk/peoplepopulationandcommunity/populationandmigration/populationestimates/datasets/populationestimatesforukenglandandwalesscotlandandnorthernireland", "Estimates of the population for the UK, England, Wales, Scotland, and Northern Ireland (last updated: 26 March 2024)", style = "font-family: GDS Transport, arial, sans-serif; font-size :19px;")),
  tags$li(a(href = "https://www.gov.uk/government/statistics/childrens-social-care-data-in-england-2023", "Children’s social care data in England 2023 (last updated: 8 September 2023)", style = "font-family: GDS Transport, arial, sans-serif; font-size :19px;")),
- tags$li(a(href = "https://www.gov.uk/government/statistics/local-authority-revenue-expenditure-and-financing-england-2022-to-2023-individual-local-authority-data-outturn", "Local authority revenue expenditure and financing England: 2022 to 2023 (last updated: 14 February 2024)", style = "font-family: GDS Transport, arial, sans-serif; font-size :19px;"))
+ tags$li(a(href = "https://www.gov.uk/government/statistics/local-authority-revenue-expenditure-and-financing-england-2022-to-2023-individual-local-authority-data-outturn", "Local authority revenue expenditure and financing England: 2022 to 2023 (last updated: 14 February 2024)", style = "font-family: GDS Transport, arial, sans-serif; font-size :19px;")),
+ tags$li(a(href = "https://assets.publishing.service.gov.uk/media/606458acd3bf7f0c8d06b7e2/Childrens_services_statistical_neighbour_benchmarking_tool_-_LGR_Version__April_2021_.xlsx", "Children's services statistical neighbour benchmarking tool (last updated: April 2021)", style = "font-family: GDS Transport, arial, sans-serif; font-size :19px;"))
  )
  )
  )

R/outcome2_page.R

@@ -158,24 +158,27 @@ outcome2_tab <- function() {
  help_text = (
  reactableOutput("table_sgo_ceased_reg")
  )
+ ),
+ details(
+ inputId = "sgo_reg_info",
+ label = "Additional information:",
+ help_text = (
+ p(
+ tags$li("Only one reason for children ceased to be looked after during the year shown. See ", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/children-looked-after-in-england-including-adoptions", "Children looked after publication "), "for full list of reasons."),
+ tags$li("Percentages rounded to the nearest whole number."),
+ tags$li("Historical data may differ from older publications which is mainly due to amendments made by local authorities after the previous publication. However, users looking for a longer time series may wish to view the equivalent data in earlier releases of the publication."),
+ tags$li("Figures exclude children looked after under a series of short-term placements."),
+ tags$li("Only the last occasion on which a child ceased to be looked after in the year has been counted."),
+ tags$br(),
+ "For more information on the data and definitions, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/children-looked-after-in-england-including-adoptions/data-guidance", "Children looked after guidance."),
+ tags$br(),
+ "For more information on the methodology, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/methodology/children-looked-after-in-england-including-adoptions", "Children looked after methodology.")
+ ))
  )
  ),
  gov_row(
  h2("Special Guardianship Order (SGO) by local authority"),
- p(sprintf("The charts below represent data from %s.", max(workforce_data$time_period))),
- # p("This chart is reactive to the Local Authority and Regional filters at the top and will not react to the National filter. The chart will display all Local Authorities overall or every Local Authority in the selected Region.
- #
- # The graph represents data from 2023."),
- # br(),
- # plotlyOutput("plot_SGO_la"),
- # br(),
- # details(
- # inputId = "tbl_sgo_ceased_la",
- # label = "View chart as table",
- # help_text = (
- # dataTableOutput("table_sgo_la")
- # )
- # ),
+ p(sprintf("The charts below represent data from %s.", max(ceased_cla_data$time_period))),
  radioGroupButtons(
  "sgo_stats_toggle",
  label = NULL,
@@ -238,21 +241,26 @@ outcome2_tab <- function() {
  reactableOutput("table_cao_ceased_reg")
  )
  ),
+ details(
+ inputId = "cao_reg_info",
+ label = "Additional information:",
+ help_text = (
+ p(
+ tags$li("Only one reason for children ceased to be looked after during the year shown. See ", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/children-looked-after-in-england-including-adoptions", "Children looked after publication "), "for full list of reasons."),
+ tags$li("Percentages rounded to the nearest whole number."),
+ tags$li("Historical data may differ from older publications which is mainly due to amendments made by local authorities after the previous publication. However, users looking for a longer time series may wish to view the equivalent data in earlier releases of the publication."),
+ tags$li("Figures exclude children looked after under a series of short-term placements."),
+ tags$li("Only the last occasion on which a child ceased to be looked after in the year has been counted."),
+ tags$br(),
+ "For more information on the data and definitions, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/children-looked-after-in-england-including-adoptions/data-guidance", "Children looked after guidance."),
+ tags$br(),
+ "For more information on the methodology, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/methodology/children-looked-after-in-england-including-adoptions", "Children looked after methodology.")
+ ))
+ )
  ),
  gov_row(
  h2("Residence order or Child Arrangement Order (CAO) by local authority"),
- p(sprintf("The charts below represent data from %s.", max(workforce_data$time_period))),
-
- # br(),
- # plotlyOutput("plot_cao_la"),
- # br(),
- # details(
- # inputId = "table_cao_la",
- # label = "View chart as table",
- # help_text = (
- # dataTableOutput("table_cao_la")
- # )
- # ),
+ p(sprintf("The charts below represent data from %s.", max(ceased_cla_data$time_period))),
  radioGroupButtons(
  "cao_stats_toggle",
  label = NULL,

R/outcome3_page.R

@@ -162,7 +162,22 @@ outcome3_tab <- function() {
  help_text = (
  reactableOutput("table_cpp_repeat_reg")
  )
- )
+ ),
+ details(
+ inputId = "cpp_in_year_reg_info",
+ label = "Additional information:",
+ help_text = (
+ tags$ul(
+ tags$li("The metric shown in the graph refers to the percentage of children who have been entered into a CPP during the year, where this plan was at least their second."),
+ tags$br(),
+ p(
+ "For more information on the data and definitions, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/characteristics-of-children-in-need/2023/data-guidance", "Children in need data guidance."),
+ tags$br(),
+ "For more information about child protection plans, please refer to", a(href = "https://assets.publishing.service.gov.uk/media/65cb4349a7ded0000c79e4e1/Working_together_to_safeguard_children_2023_-_statutory_guidance.pdf", "Working together to safeguard children - statutory guidance.")
+ )
+ )
+ )
+ ),
  ),
  gov_row(
  h2("Repeat Child Protection Plan (CPP) by local authority"),
@@ -225,7 +240,23 @@ outcome3_tab <- function() {
  help_text = (
  reactableOutput("table_cpp_duration_reg")
  )
- )
+ ),
+ details(
+ inputId = "cpp_longer_reg_info",
+ label = "Additional information:",
+ help_text = (
+ tags$ul(
+ tags$li("The metric shown in the graph refers to the percentage of children who have been on a Child Protection Plan (CPP) for longer than 2 years."),
+ tags$li("Local authority data is not available for this metric as there are a large number of local authorities with suppressed data."),
+ tags$br(),
+ p(
+ "For more information on the data and definitions, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/characteristics-of-children-in-need/2023/data-guidance", "Children in need data guidance."),
+ tags$br(),
+ "For more information about child protection plans, please refer to", a(href = "https://assets.publishing.service.gov.uk/media/65cb4349a7ded0000c79e4e1/Working_together_to_safeguard_children_2023_-_statutory_guidance.pdf", "Working together to safeguard children - statutory guidance.")
+ )
+ )
+ )
+ ),
  ),
  ),
  ### Hospital admissions ------
@@ -456,6 +487,25 @@ outcome3_tab <- function() {
  reactableOutput("extra_familial_all_af_tbl")
  )
  ),
+ details(
+ inputId = "efh_all_info",
+ label = "Additional information:",
+ help_text = (
+ tags$ul(
+ tags$li("Figures exclude the category ‘no factors identified’."),
+ tags$li("An episode of need may have more than one factor recorded."),
+ tags$li("Information on child on child and adult on child physical and sexual abuse was collected and reported on for the third time in 2023. Previously physical abuse and sexual abuse was collected and reported on (irrespective of whether it was child on child or adult on child) and some local authorities have provided information on the old basis only, or a mixture of the old and new basis, since 2021. The old physical and sexual abuse categories have therefore been included to provide a more complete account of this category of assessment."),
+ tags$li("The ‘Domestic violence’ factor was renamed as ‘Domestic abuse’ in the 2022 release. This is a change to the description of the factor and is not a change to the information collected for this factor."),
+ tags$li("Data for the years ending 31 March 2021 and 2022 is not available for Hackney local authority, therefore 2020 data for Hackney has been included in 2021 and 2022 national totals, and regional totals for inner London and London. Refer to the methodology for more information."),
+ tags$br(),
+ p(
+ "For more information on the data and definitions, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/characteristics-of-children-in-need/data-guidance", "Children in need data guidance."),
+ tags$br(),
+ "For more information on the methodology, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/methodology/characteristics-of-children-in-need-methodology", "Children in need methodology.")
+ )
+ )
+ )
+ )
  ),
  gov_row(
  div(

R/outcome4_page.R

@@ -170,11 +170,24 @@ outcome4_tab <- function() {
  br(),
  br(),
  details(
- inputId = "tbl_placement_type_reg",
+ inputId = "tbl_placement_changes_reg",
  label = "View chart as a table",
  help_text = (
  reactableOutput("placement_changes_region_tbl")
  )
+ ),
+ details(
+ inputId = "placement_changes_reg_info",
+ label = "Additional information:",
+ help_text = (
+ tags$ul(
+ tags$li("Numbers have been rounded to the nearest 10. Percentages rounded to the nearest whole number. Historical data may differ from older publications which is mainly due to amendments made by local authorities after the previous publication. However, users looking for a longer time series may wish to check for the equivalent table in earlier releases of this publication. Figures exclude children looked after under a series of short-term placements."),
+ tags$br(),
+ p(
+ "For more information on the data and definitions, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/children-looked-after-in-england-including-adoptions/data-guidance", "Children looked after in England data guidance."),
+ )
+ )
+ )
  )
  ),
  gov_row(
@@ -318,6 +331,19 @@ outcome4_tab <- function() {
  help_text = (
  reactableOutput("placement_type_region_tbl")
  )
+ ),
+ details(
+ inputId = "placement_type_reg_info",
+ label = "Additional information:",
+ help_text = (
+ tags$ul(
+ tags$li("Numbers have been rounded to the nearest 10. Percentages rounded to the nearest whole number. Historical data may differ from older publications which is mainly due to amendments made by local authorities after the previous publication. However, users looking for a longer time series may wish to check for the equivalent table in earlier releases of this publication. Figures exclude children looked after under a series of short-term placements."),
+ tags$br(),
+ p(
+ "For more information on the data and definitions, please refer to the", a(href = "https://explore-education-statistics.service.gov.uk/find-statistics/children-looked-after-in-england-including-adoptions/data-guidance", "Children looked after in England data guidance."),
+ )
+ )
+ )
  )
  ),
  gov_row(

R/standard_panels.R

@@ -6,7 +6,7 @@ a11y_panel <- function() {
  column(
  width = 12,
  h1("Accessibility statement"),
- br("This accessibility statement applies to the **application name**.
+ br("This accessibility statement applies to the Children's Social Care - Outcomes and Enablers dashboard.
  This application is run by the Department for Education. We want as many people as possible to be able to use this application,
  and have actively developed this application with accessibilty in mind."),
  h2("WCAG 2.1 compliance"),