Drop levels

j-hagedorn · Sep 29, 2017 · a2efbac · a2efbac
1 parent 566e05d
commit a2efbac
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/prep/scrub.R b/prep/scrub.R
@@ -17,7 +17,8 @@ scrub_sis <-
   sub_sis %>%
   mutate(mcaid_id = as.character(mcaid_id)) %>%
   left_join(sis_key, by = "mcaid_id") %>%
-  select(-sis_id, -mcaid_id, -age, -gender, -race, -ethnic,-address)
+  select(-sis_id, -mcaid_id, -age, -gender, -race, -ethnic,-address) %>%
+  droplevels()
 
 # Write SIS Key and Scrubbed data to local workspace
 write.csv(sis_key,"data/sis_key.csv", row.names = F)