R/class_code.R

In n-fanton/ndr: Non-Domestic Rates - Scotland

#' Class code to name
#'
#' Find the description of a NDR class code
#'
#' @param class Class code as on the valuation roll
#'
#' @return Class name
#' @export
#'
#' @examples class_code(11)
class_code <- function(class) {

  # Clean up inputs -----------------------------------------------------------
  class <- as.numeric(class)

  # Return class description for each number ----------------------------------
  dplyr::case_when(class ==  1 ~ "Shops",
                   class ==  2 ~ "Public houses",
                   class ==  3 ~ "Offices",
                   class ==  4 ~ "Hotels",
                   class ==  5 ~ "Industrial subjects",
                   class ==  6 ~ "Leisure, entertainment, caravans etc.",
                   class ==  7 ~ "Garages and petrol Stations",
                   class ==  8 ~ "Cultural",
                   class ==  9 ~ "Sporting subjects",
                   class == 10 ~ "Education and training",
                   class == 11 ~ "Public service subjects",
                   class == 12 ~ "Communications",
                   class == 13 ~ "Quarries, mines, etc.",
                   class == 14 ~ "Petrochemical",
                   class == 15 ~ "Religious",
                   class == 16 ~ "Health and medical",
                   class == 17 ~ "Other",
                   class == 18 ~ "Care facilities",
                   class == 19 ~ "Advertising",
                   class == 20 ~ "Statutory undertaking",
                   class == 21 ~ "Not in use",
                   class == 99 ~ "All"
  )
}