R/make_com_part_B.R

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

#' Make Completions Part B
#'
#' @param df A dataframe of student/degree information
#' @param extracips A dataframe of cips offered by the institution but not in \code{'df'}
#'
#' @importFrom rlang .data
#' @importFrom dplyr select bind_rows arrange transmute distinct
#' @importFrom utils write.table
#' @importFrom stringr str_to_upper
#'
#' @return A text file
#' @export
#'

make_com_part_B <- function(df, extracips = NULL) {

  #prep extra cip codes
  if (!is.null(extracips)) {
    colnames(extracips) <- stringr::str_to_upper(colnames(extracips))

    extracips_B <- extracips %>%
                   dplyr::select("UNITID",
                                 "MAJORNUMBER",
                                 "MAJORCIP",
                                 "DEGREELEVEL",
                                 "DISTANCEED",
                                 "DISTANCEED31",
                                 "DISTANCEED32")
  } else {
    extracips_B <- data.frame("UNITID" = NA,
                              "MAJORNUMBER" = NA,
                              "MAJORCIP" = NA,
                              "DEGREELEVEL" = NA,
                              "DISTANCEED" = NA,
                              "DISTANCEED31" = NA,
                              "DISTANCEED32" = NA)
  }

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

  #prep upload
  partB <- df %>%
           dplyr::select("UNITID",
                         "MAJORNUMBER",
                         "MAJORCIP",
                         "DEGREELEVEL",
                         "DISTANCEED",
                         "DISTANCEED31",
                         "DISTANCEED32") %>%
           dplyr::distinct() %>%
           #if we need to add the extra cips, do it here
           dplyr::bind_rows(extracips_B) %>%
           dplyr::filter(!is.na(.data$UNITID)) %>%
           #sort for easy viewing
           dplyr::arrange(.data$MAJORNUMBER,
                          .data$MAJORCIP,
                          .data$DEGREELEVEL,
                          .data$DISTANCEED,
                          .data$DISTANCEED31,
                          .data$DISTANCEED32) %>%
           #format for upload
           dplyr::transmute(UNITID = .data$UNITID,
                            SURVSECT = "COM",
                            PART = "B",
                            MAJORNUM = .data$MAJORNUMBER,
                            CIPCODE = .data$MAJORCIP,
                            AWLEVEL = .data$DEGREELEVEL,
                            #2020 is non-rectangular: this was the best solution I could think of
                            DistanceED = ifelse(.data$DISTANCEED != 3,
                                            .data$DISTANCEED,
                                            paste0(.data$DISTANCEED,
                                                   ",DistanceED31=", .data$DISTANCEED31,
                                                   ",DistanceED32=", .data$DISTANCEED32))
                            )

}