From 45393b787f18bbb9813fce0296ef75382dcfb74d Mon Sep 17 00:00:00 2001
From: saraloo <45245630+saraloo@users.noreply.github.com>
Date: Tue, 5 Dec 2023 15:58:36 +0100
Subject: [PATCH] fix flepi path in us setup file

---
 datasetup/build_US_setup.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/datasetup/build_US_setup.R b/datasetup/build_US_setup.R
index 2da1cd37f..4d68c6763 100644
--- a/datasetup/build_US_setup.R
+++ b/datasetup/build_US_setup.R
@@ -84,14 +84,14 @@ dir.create(outdir, showWarnings = FALSE, recursive = TRUE)
 # census_data <- tidycensus::get_acs(geography="county", state=filterUSPS,
 #                                    variables="B01003_001", year=config$subpop_setup$census_year,
 #                                    keep_geo_vars=TRUE, geometry=FALSE, show_call=TRUE)
-census_data <- arrow::read_parquet("datasetup/usdata/us_county_census_2019.parquet") %>%
+census_data <- arrow::read_parquet(paste0(opt$p,"/datasetup/usdata/us_county_census_2019.parquet")) %>%
   dplyr::rename(population=estimate, subpop=GEOID) %>%
   dplyr::select(subpop, population) %>%
   dplyr::mutate(subpop = substr(subpop,1,5))
 
 # Add USPS column
 #data(fips_codes)
-fips_codes <- arrow::read_parquet("datasetup/usdata/fips_us_county.parquet")
+fips_codes <- arrow::read_parquet(paste0(opt$p,"datasetup/usdata/fips_us_county.parquet"))
 fips_subpop_codes <- dplyr::mutate(fips_codes, subpop=paste0(state_code,county_code)) %>%
   dplyr::group_by(subpop) %>%
   dplyr::summarize(USPS=unique(state))