R/process_scotgov_ur_classification.R

In ScottishCovidResponse/SCRCdata: Processing Scripts for the SCRC Data Pipeline

#' process_scotgov_ur_classification
#'
#' @param sourcefile a \code{string} specifying the local path and filename
#' associated with the source data (the input of this function)
#' @param filename a \code{string} specifying the local path and filename
#' associated with the processed data (the output of this function)
#'
#' @export
#'
process_scotgov_ur_classification <- function(sourcefile, filename) {

  scotUR <- read.csv(file = sourcefile) %>%
    dplyr::select(-X) %>%
    dplyr::mutate(featurecode = gsub(
      "<http://statistics.gov.scot/id/statistical-geography/", "",
      featurecode),
      featurecode = gsub(">", "", featurecode)) %>%
    dplyr::select_if(~ length(unique(.)) != 1) %>%
    dplyr::select(featurecode, rank) %>%
    dplyr::mutate(ur_name = dplyr::case_when(
      rank == 1 ~ "large_urban_area",
      rank == 2 ~ "other_urban_area",
      rank == 3 ~ "accessible_small_town",
      rank == 4 ~ "remote_small_town",
      rank == 5 ~ "accessible_rural",
      rank == 6 ~ "remote_rural"))

  SCRCdataAPI::create_table(h5filename = filename,
                            component = "conversion",
                            df = scotUR,
                            row_title = "datazones",
                            row_names = rownames(scotUR),
                            column_units = colnames(scotUR))
}