R/read_vr.R

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

#' Read valuation roll data
#'
#' An implementation of \code{\link[readr]{read_csv}} with pre-set
#' column specifications.
#'
#' @param file Valuation Roll file in CSV format
#' @param ... passed to \code{\link[readr]{read_csv}}
#'
#' @return a tibble
#' @export
#'
#' @examples read_vr("vr_010122.csv")
read_vr <- function(file, ...){
  readr::vr_raw <- read_csv(
    file = file,
    col_types = readr::cols(
      .default = col_character(),
      ASSESSOR_ID = col_double(),
      UPRN = col_double(),
      UA = col_double(),
      EAST = col_double(),
      NORTH = col_double(),
      NAV = col_double(),
      RV = col_double(),
      RES_APPORTION = col_double(),
      NON_RES_APPORTION = col_double(),
      SEQUENCE_NUMBER = col_double(),
      APPFLAG = col_double(),
      REVAL_APPEAL = col_double()),
    ...) %>%
    janitor::clean_names()
}