4 hourly pay gap data process

.Rbuildignore

@@ -11,3 +11,5 @@
 ^gitleaks.toml$
 ^\.github$
 ^\.lintr$
+^data_temp$
+^\./R/data\.r$

.gitignore

@@ -15,4 +15,7 @@ rsconnect
 # Excel files (including macros and templates) #
 ################################################
 *.[xX][lL][sS][xXmMtT]?
+# Any RDA files
+*.[rR][dD][aA]
 data/*
+data_temp/*

DESCRIPTION

@@ -17,24 +17,21 @@ Imports:
     htmltools,
     magrittr,
     nhsbsaR,
-    rlang,
-    scrollytell,
     shiny,
     shinyjs,
     dplyr (>= 1.1.3),
-    dbplyr (>= 2.3.3),
-    forcats (>= 1.0.0),
     futile.logger (>= 1.4.3),
     stringr,
-    formatR,
-    tidyr
+    htmlwidgets
 Suggests:
     pkgload,
     testthat (>= 3.0.0),
-    usethis
+    usethis,
+    tidyr,
+    graphics,
+    stats
 Remotes:
-    nhsbsa-data-analytics/nhsbsaR,
-    statistiekcbs/scrollytell
+    nhsbsa-data-analytics/nhsbsaR
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.2.3

NAMESPACE

@@ -1,14 +1,16 @@
 # Generated by roxygen2: do not edit by hand
 
 export("%>%")
-export(gender_profile)
+export(gpg_data)
+export(gpg_pyramid)
+export(gpg_stack)
+export(gpg_trend)
 export(h1_tabstop)
 export(h2_tabstop)
 export(h3_tabstop)
 export(h4_tabstop)
 export(h5_tabstop)
 export(h6_tabstop)
-export(headcount_data)
 export(nhs_card)
 export(nhs_card_tabstop)
 export(nhs_footer)
@@ -27,3 +29,5 @@ importFrom(golem,bundle_resources)
 importFrom(golem,favicon)
 importFrom(golem,with_golem_options)
 importFrom(magrittr,"%>%")
+importFrom(shiny,NS)
+importFrom(shiny,tagList)

R/app_server.R

@@ -6,7 +6,5 @@
 #' @noRd
 app_server <- function(input, output, session) {
   # Your application server logic
-  mod_markdown_example_server("markdown_example_ui_1")
-  mod_chart_example_server("chart_example_ui_1")
-  mod_scrollytell_example_server("scrollytell_example_1")
+  mod_introduction_server("introduction_1")
 }

R/app_ui.R

@@ -26,16 +26,8 @@ app_ui <- function(request) {
             well = FALSE,
             widths = c(3, 9),
             tabPanel(
-              title = "Introduction",
-              mod_markdown_example_ui("markdown_example_ui_1")
-            ),
-            tabPanel(
-              title = "Charts",
-              mod_chart_example_ui("chart_example_ui_1")
-            ),
-            tabPanel(
-              title = "Scrolly example",
-              mod_scrollytell_example_ui("scrollytell_example_1")
+              title = "Report",
+              mod_introduction_ui("introduction_1")
             )
           )
         )

R/data.R

@@ -1,16 +1,69 @@
-#' NHSBSA employee headcount
-#'
-#' A dataset containing NHSBSA employee headcount
-#' since financial year 2017/18, split by gender, AFC band 
-#' and FTE (full time or part time) 
-#'
-#' @format A data frame
-#' \describe{
-#'   \item{FINANCIAL_YEAR}{01-Mar-year, factor}
-#'   \item{GENDER}{Male or Female, character}
-#'   \item{PAY_GRADE_NAME}{AFC band}
-#'   \item{FTE_GROUP}{employee full time or part time info}
-#'   \item{HEADCOUNT}To get number of employees}
-#'   ...
+#' NHSBSA employee afc_staff
+#'
+#' A dataset containing NHSBSA employee hourly pay
+#' by reporting period split by gender, FTE, AFC band, directorate.
+#' \itemize{
+#'   \item period. 2018/19, 2019/20 etc character
+#'   \item gender. Male or Female, character
+#'   \item headcount. employee headcount used for aggregation
+#'   \item hourly_rate. hourly rate as shown pay slip
+#'   \item quartile. split hourly_rate by quartile by gender
+#'   \item fte. employee full time or part time information
+#'   \item afc_band. AFC band
+#'   \item directorate. NHSBSA directorate
+#' }
+#'
+#' @docType data
+#' @keywords datasets
+#' @name afc_staff
+#' @usage afc_staff
+#' @format A data frame with gender pay gap information
+#'
+#'
+"afc_staff"
+
+
+#' NHSBSA employee paygap
+#'
+#' A dataset containing NHSBSA employee paygap
+#' Directly pulled from ESR dashboard (NHS National Returns)
+#' gender, average hourly rate, median hourly rate and pay gap%
+#'
+#' \itemize{
+#'    \item period. 2018/19, 2019/20 etc character
+#'   \item avg_hr_gpg. Mean gender pay gap % based on male full-pay relevant employees
+#'   \item median_hr_gpg. Median gender pay gap % based
+#'   on male full-pay relevant employees
 #' }
-"headcount"
+#'
+#' @docType data
+#' @keywords datasets
+#' @name paygap
+#' @usage paygap
+#' @format A data frame with paygap information
+
+"paygap"
+
+
+#' NHSBSA employee quartile
+#'
+#' A dataset containing NHSBSA employee hourly pay
+#' by reporting period from 2018 (eg. snapshot 31/03/2018 for 2018/19 report etc)
+#' by quartiles
+#'
+#'
+#' \itemize{
+#'   \item period. 2018/19, 2019/20 etc character
+#'   \item quartile. split hourly pay into quartiles
+#'   \item female. number of female employees in each quartile
+#'   \item male. number of male employees in each quartile
+#'   \item quartile. split hourly_rate by quartile by gender
+#'  }
+#'
+#'  @docType data
+#'  @keywords datasets
+#'  @name quartile
+#'  @usage quartile
+#'  @format data frame with employee gender hourly pay by quartiles
+
+"quartile"