HR upload field renaming & OM quality check

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: IPEDSuploadables
 Title: Transforms Institutional Data into Text Files for IPEDS Automated Import/Upload
-Version: 3.0.0
+Version: 3.0.1
 Authors@R: c(
             person(given = "Alison", family = "Lanski", role = c("aut", "cre"), email = "alanski@nd.edu"),
             person("Shiloh", "Fling", role = c("aut"),email = "shiloh.fling@unlv.edu"),

NEWS.md

@@ -1,3 +1,7 @@
+# IPEDSuploadables 3.0.1
+* Adjusting final file column names for HR wording update (no user changes necessary)
+* Adding data check to OM for duplicate student IDs
+
 # IPEDSuploadables 3.0.0
 * Adding Admissions survey parts for demographic and test score breakouts 
 

R/make_hr_part_A1.R

@@ -59,7 +59,7 @@ make_hr_part_A1 <- function(df) {
                              PART = "A1",
                              TENURE = .data$TENURE,
                              RANK =  .data$RANK,
-                             RACEETHNICITYGENDER = .data$REG,
+                             RACEETHNICITYSEX = .data$REG,
                              COUNT = .data$COUNT
                              )
 

R/make_hr_part_B1.R

@@ -47,7 +47,7 @@ make_hr_part_B1 <- function(df) {
                              SURVSECT = "HR1",
                              PART = "B1",
                              OCCCATEGORY1 = .data$OCCCATEGORY1,
-                             RACEETHNICITYGENDER = .data$REG,
+                             RACEETHNICITYSEX = .data$REG,
                              COUNT = .data$COUNT
                              )
 }

R/make_hr_part_D1.R

@@ -47,7 +47,7 @@ make_hr_part_D1 <- function(df) {
                              SURVSECT = "HR1",
                              PART = "D1",
                              OCCCATEGORY1 = .data$OCCCATEGORY1,
-                             RACEETHNICITYGENDER = .data$REG,
+                             RACEETHNICITYSEX = .data$REG,
                              COUNT = .data$COUNT
                              )
 

R/make_hr_part_D2.R

@@ -46,7 +46,7 @@ make_hr_part_D2 <- function(df) {
                              SURVSECT = "HR1",
                              PART = "D2",
                              OCCCATEGORY4 = .data$OCCCATEGORY4,
-                             RACEETHNICITYGENDER = .data$REG,
+                             RACEETHNICITYSEX = .data$REG,
                              COUNT = .data$COUNT
                              )
 

R/make_hr_part_G1.R

@@ -83,7 +83,7 @@ make_hr_part_G1 <- function(df) {
                              SURVSECT = "HR1",
                              PART = "G1",
                              RANK = .data$RANK,
-                             GENDER = .data$GENDER,
+                             SEX = .data$GENDER,
                              `12MCOUNT` =  .data$`12mCOUNT`,
                              `11MCOUNT` = .data$`11mCOUNT`,
                              `10MCOUNT` = .data$`10mCOUNT`,

R/make_hr_part_H1.R

@@ -48,7 +48,7 @@ make_hr_part_H1 <- function(df) {
                              SURVSECT = "HR1",
                              PART = "H1",
                              TENURE = .data$TENURE,
-                             RACEETHNICITYGENDER = .data$REG,
+                             RACEETHNICITYSEX = .data$REG,
                              COUNT = .data$COUNT
                              )
 }

R/make_hr_part_H2.R

@@ -47,7 +47,7 @@ make_hr_part_H2 <- function(df) {
                              SURVSECT = "HR1",
                              PART = "H2",
                              OCCCATEGORY5 = .data$OCCCATEGORY5,
-                             RACEETHNICITYGENDER = .data$REG,
+                             RACEETHNICITYSEX = .data$REG,
                              COUNT = .data$COUNT
                              )
 }

R/prep_om_data_frame.R

@@ -13,7 +13,6 @@ prep_om_data_frame <- function(df) {
 
   colnames(df) <- stringr::str_to_upper(colnames(df))
 
-
   if("EXCLUSION" %in% colnames(df) & sum(grepl(x = df$EXCLUSION, "clude")) > 1){
     df <- df %>%
       dplyr::rename(COHORTSTATUS = .data$EXCLUSION)
@@ -34,5 +33,10 @@ prep_om_data_frame <- function(df) {
     warning("Please use the CohortStatus column with values of 'Include' or 'Exclude' to indicate exclusions.")
   }
 
+  mult_rows <- df %>% dplyr::count(.data$STUDENTID) %>% dplyr::filter(n > 1)
+  if (nrow(mult_rows) >  0) {
+    warning(paste0("IPEDS requests highest degree only for each student in each award year. These StudentIds may have multiple degree levels: ", toString(unique(mult_rows$STUDENTID))))
+  }
+
   return(df)
 }

docs/404.md

@@ -0,0 +1,3 @@
+Content not found. Please use links in the navbar.
+
+# Page not found (404)

docs/ISSUE_TEMPLATE.md

@@ -0,0 +1,14 @@
+# NA
+
+**Please fill out all sections on here so we can assist you in a timely
+manner!**
+
+**Describe the bug** A clear and concise description of what the bug is.
+
+**To Reproduce** Steps to reproduce the behavior: 1. \<!– Replace this
+text –!\> 2. \<!– Replace this text –!\>
+
+**Expected behavior** A clear and concise description of what you
+expected to happen.
+
+**Additional context** Add any other context about the problem here.

docs/LICENSE-text.md

@@ -0,0 +1,4 @@
+# License
+
+    YEAR: 2020
+    COPYRIGHT HOLDER: Alison Lanski