R/metadata.R

In associatedpress/ipedals: ipedals

#' Build a full column specification from an IPEDS varlist.
#'
#' @export
#' @param varlist A tibble of an IPEDS metadata file's `varlist` sheet.
#' @return A column specification as returned by `readr::cols`.
get_column_types <- function(varlist) {
  specs <- list()
  for (i in 1:nrow(varlist)) {
    row <- varlist[i,]
    var_name <- row$varname
    data_type <- row$DataType
    if (var_name == "UNITID") {
      specs[[var_name]] <- readr::col_character()
    } else if (data_type == "N") {
      specs[[var_name]] <- readr::col_number()
    } else {
      specs[[var_name]] <- readr::col_character()
    }
  }
  do.call(readr::cols, specs)
}