R/mod_04_applications_over_time.R

In nhsbsa-data-analytics/nhs-low-income-scheme-scrollytell: NHS Low Income Scheme Scrollytell

#' 04_applications_over_time UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_04_applications_over_time_ui <- function(id) {
  ns <- NS(id)
  tagList(
    h2("There is a decrease in applications in England over time"),
    p(
      "The total number of NHS Low Income Scheme applications in England has ",
      "declined by 15% from 350 thousand in 2015/16 to 298 thousand in ",
      "2019/20, with a sharp decline during the COVID-19 pandemic."
    ),
    nhs_card(
      heading = "Number of NHS Low Income Scheme applications in England (2015/16 to 2020/21)",
      highcharter::highchartOutput(
        outputId = ns("plot_applications"),
        height = "300px"
      ),
      mod_nhs_download_ui(
        id = ns("download_applications")
      )
    ),
    br(),
    p("The rate of decline between 2015/16 and 2019/20 is highest amongst:"),
    tags$ul(
      tags$li("Those categorised as students at around 29%."),
      tags$li(
        "15 to 24 year olds (27%), where student applications are most ",
        "prevalent."
      ),
      tags$li(
        "45 to 54 year olds (24%), where earner applications are most common."
      ),
      tags$li("In areas of lower deprivation.")
    )
  )
}

#' 04_applications_over_time Server Functions
#'
#' @noRd
mod_04_applications_over_time_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns

    # Add data to download button
    mod_nhs_download_server(
      id = "download_applications",
      filename = "applications.csv",
      export_data = lowIncomeSchemeScrollytellR::applications_overall_df
    )

    # Time series plot
    output$plot_applications <- highcharter::renderHighchart({
      # Create  plot
      lowIncomeSchemeScrollytellR::applications_overall_df %>%
        highcharter::hchart(
          type = "line",
          highcharter::hcaes(x = FINANCIAL_YEAR, y = TOTAL_APPLICATIONS)
        ) %>%
        theme_nhsbsa() %>%
        highcharter::hc_yAxis(
          min = 0,
          title = list(text = "Total number of applications")
        ) %>%
        highcharter::hc_xAxis(
          title = list(text = "Financial year")
        ) %>%
        highcharter::hc_tooltip(
          shared = FALSE,
          formatter = highcharter::JS(
            "
            function () {

              outHTML =
                '<b>Financial Year: </b>' + this.point.FINANCIAL_YEAR + '<br/>' +
                '<b>Total Applications: </b>' + ((this.point.y / 500) * 500 / 1000).toFixed(0) + 'k'

              return outHTML

            }
            "
          )
        )
    })
  })
}

## To be copied in the UI
# mod_04_applications_over_time_ui("04_applications_over_time_ui_1")

## To be copied in the server
# mod_04_applications_over_time_server("04_applications_over_time_ui_1")