remove non-state & empty CoCs (#13)

* remove non-state & empty CoCs

* bump version number

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: coc.data.package
 Title: Point-in-time homelessness counts and covariates by CoC
-Version: 0.4.1
+Version: 0.4.2
 URL: https://github.com/ucsf-bhhi/coc-data
 Authors@R: c(
   person(

code/coc_economic_indicators.R

@@ -180,6 +180,7 @@ fetch_public_program_use <- function(year) {
 #'     Medicaid
 build_coc_public_program_use <- function(acs_data, tract_crosswalk) {
   tract_crosswalk %>%
+    filter(!is.na(coc_number)) %>% 
     left_join(acs_data, by = c("tract_fips" = "fips", "year")) %>%
     group_by(coc_number, year) %>%
     summarise(

code/pit_data_processing.R

@@ -72,7 +72,11 @@ get_long_pit_data <- function(wide_pit_data) {
 get_coc_categories <- function(wide_pit_data) {
   wide_pit_data %>%
     # category is only present in the last year of data so filter for that one
-    filter(!is.na(coc_category)) %>%
+    filter(
+      !is.na(coc_category),
+      !(str_sub(coc_number, 1, 2) %in% c("GU", "MP", "VI", "PR")),
+      coc_number != "MO-604a"
+    ) %>%
     # just keep these variables around
     select(coc_number, coc_name, coc_category)
 }