R/make_om_part_B.R

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

#' Make Outcome Measures Part B
#'
#' @description Award Status at Four Years after Entry
#'
#' @param df A dataframe of student statuses
#'
#' @importFrom dplyr transmute
#' @importFrom stringr str_to_upper
#'
#' @return A dataframe with the required IPEDS structure for this survey part
#' @export
#'

make_om_part_B <- function(df) {

  colnames(df) <- stringr::str_to_upper(colnames(df))

  partB <- prep_om_awards(df, award = "AWARDLEVEL4") %>%
           #format for upload
           dplyr::transmute(UNITID = .data$UNITID,
                            SURVSECT = "OM1",
                            PART = "B",
                            LINE = .data$COHORTTYPE,
                            RECIPIENT_TYPE = .data$RECIPIENT,
                            AWARD_CERTIFICATES = .data$`1`,
                            AWARD_ASSOCIATES = .data$`2`,
                            AWARD_BACHELORS = .data$`3`)

}