minor segregation metrics bug fix

UI-Research · Sep 24, 2024 · ed072d1 · ed072d1
1 parent f6f9500
commit ed072d1
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 6 deletions.
diff --git a/R/calculate_segregation_metrics.R b/R/calculate_segregation_metrics.R
@@ -101,8 +101,8 @@ calculate_segregation_metrics = function(data, data_format, nesting_geography_ge
         unit = "GEOID",
         weight = "estimate",
         wide = T) %>%
-      dplyr::as_tibble() %>%
-      dplyr::select(GEOID, segregation_small_geography = ls, p_small_geography = p))
+      dplyr::as_tibble()) %>%
+      dplyr::select(GEOID, segregation_small_geography = ls, p_small_geography = p)
 
   small_segregation_results = data %>%
     dplyr::select(GEOID) %>%

diff --git a/R/compile_acs_data.R b/R/compile_acs_data.R
@@ -415,10 +415,6 @@ geographies over time should be thoroughly quality checked.\n")
 
   states = county_codes$state %>% unique
 
-  # county_codes %>% View()
-  #
-  # browser()
-
   suppressMessages({ suppressWarnings({
     ## some geographies are not available by state and can only be returned nationally
     if (geography %in% super_state_geographies) {

diff --git a/inst/test-data/codebook_2024-08-24.rds b/inst/test-data/codebook_2024-08-24.rds
diff --git a/inst/test-data/test_data_2024-08-24.rds b/inst/test-data/test_data_2024-08-24.rds