R/get_ipeds_unitid.R

In AlisonLanski/IPEDSuploadables: Transforms Institutional Data into Text Files for IPEDS Automated Import/Upload

#' Grab institution's UNITID from supplied data to populate missing-data rows
#'
#' @param df a dataframe with ipeds data and one unitid
#'
#' @importFrom stringr str_to_upper
#'
#' @return a character unitid
#' @export
#'

get_ipeds_unitid <- function(df) {

  colnames(df) <- stringr::str_to_upper(colnames(df))
  ipeds_unitid  <- as.character(df$UNITID[1])

  return(ipeds_unitid)
}