fixes #129

workspace/01_Gage_Selection.Rmd

@@ -66,7 +66,7 @@ if(!file.exists("data/ref_gages.gpkg")){
 
 ```{r GAGESIII-SWIM}
 # Read gagesIII dbf that is a POR summary produced from 00_gage_info.Rmd
-gagesIII_db_full <- read.dbf(file = file.path(data_paths$data_dir, "gages3GFinfo.dbf"), as.is = TRUE) %>%
+gagesIII_db_full <- read.dbf(file = file.path(data_paths$data_dir, "SWIMGFinfo.dbf"), as.is = TRUE) %>%
   rename(total_obs = count_nu, total_poss_obs = TPdays1)
 
 # Read in shapefile

workspace/runners/run_one_R.R

@@ -4,7 +4,7 @@ possible_vpu <- c("01", "08", "10L", "15", "02", "04", "05", "06",
                   "13", "14",  "16", "17", "18")
 
 
-vpu_codes <- VPU <- "10L"
+vpu_codes <- VPU <- vpu <- "01"
 
 check_file <- file.path("temp/", paste0(VPU, ".lock"))