delete old code; update document/test

kosukeimai · Jan 12, 2021 · e2b1f03 · e2b1f03
1 parent d92866c
commit e2b1f03
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 261 deletions.
diff --git a/R/census_geo_api_old.R b/R/census_geo_api_old.R
diff --git a/man/census_geo_api.Rd b/man/census_geo_api.Rd
diff --git a/tests/testthat/test-all.R b/tests/testthat/test-all.R
@@ -46,11 +46,11 @@ test_that("Tests predictions using the Census object", {
 
     # Build a Census object by parts; both county-level and tract-level statistics needed for tract-level predictions
     censusObj2  <- list()
-    county.dc <- census_geo_api(key = k, state = "DC", geo = "county", age = TRUE, sex = FALSE)
-    tract.dc <- census_geo_api(key = k, state = "DC", geo = "tract", age = TRUE, sex = FALSE)
+    county.dc <- census_geo_api(key = k, state = "DC", geo = "county", age = TRUE, sex = FALSE, save_temp = NULL)
+    tract.dc <- census_geo_api(key = k, state = "DC", geo = "tract", age = TRUE, sex = FALSE, save_temp = NULL)
     censusObj2[["DC"]] <- list(state = "DC", county = county.dc, tract = tract.dc, age = TRUE, sex = FALSE)
-    tract.nj <- census_geo_api(key = k, state = "NJ", geo = "tract", age = TRUE, sex = FALSE)
-    county.nj <- census_geo_api(key = k, state = "NJ", geo = "county", age = TRUE, sex = FALSE)
+    tract.nj <- census_geo_api(key = k, state = "NJ", geo = "tract", age = TRUE, sex = FALSE, save_temp = NULL)
+    county.nj <- census_geo_api(key = k, state = "NJ", geo = "county", age = TRUE, sex = FALSE, save_temp = NULL)
     censusObj2[["NJ"]] <- list(state = "NJ", county = county.nj, tract = tract.nj, age = TRUE, sex = FALSE)
 
     # Prediction using the Census object built in the previous step; county-level statistics used in prediction