R/make_hr_part_A1.R

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

#' Make Human Resources Part A1
#'
#' @description  Part A1 --- COUNT of FT INSTRUCTIONAL staff by tenure status, academic rank, and race/ethnicity/gender
#'
#' @param df a dataframe
#'
#' @importFrom dplyr bind_rows filter select group_by ungroup arrange transmute
#' @importFrom rlang .data
#' @importFrom stringr str_to_upper
#'
#' @return A dataframe with the required IPEDS structure for this survey part
#' @export
#'

make_hr_part_A1 <- function(df) {

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

  ipeds_unitid <- get_ipeds_unitid(df)

  #set up the grid of options
  combos_A1 <- expand.grid(UNITID = ipeds_unitid,
                           TENURE = c(1:7),
                           RANK = c(1:6),
                           REG = c(1:18),
                           COUNT = 0) %>%
               dplyr::bind_rows(expand.grid(UNITID = ipeds_unitid,
                                            TENURE = 6,
                                            RANK = 7,
                                            REG = 1:18,
                                            COUNT = 0))

  #produce the uploadable format
  partA1 <- df %>%
            dplyr::filter(.data$CURRENTEMPLOYEE == 1,
                          .data$INSTRUCTIONAL == 1,
                          .data$FTPT == "F") %>%
            dplyr::select("UNITID",
                          "TENURE",
                          "RANK",
                          "REG",
                          "COUNT") %>%
            #add extra combinations
            dplyr::bind_rows(combos_A1) %>%
            #aggregate the full data
            dplyr::group_by(.data$UNITID,
                            .data$TENURE,
                            .data$RANK,
                            .data$REG) %>%
            dplyr::summarize(COUNT = sum(.data$COUNT)) %>%
            dplyr::ungroup() %>%
            #sort for easy viewing
            dplyr::arrange(.data$TENURE,
                           .data$RANK,
                           .data$REG) %>%
            #format for upload
            dplyr::transmute(UNITID = .data$UNITID,
                             SURVSECT = "HR1",
                             PART = "A1",
                             TENURE = .data$TENURE,
                             RANK =  .data$RANK,
                             RACEETHNICITYGENDER = .data$REG,
                             COUNT = .data$COUNT
                             )

}