diff --git a/r_app/2_CI_data_prep.R b/r_app/2_CI_data_prep.R
index a69af96..5246c26 100644
--- a/r_app/2_CI_data_prep.R
+++ b/r_app/2_CI_data_prep.R
@@ -18,7 +18,7 @@ laravel_storage_dir <- here("laravel_app/storage/app")
 planet_tif_folder <- here(laravel_storage_dir, "chemba/merged_tif")
 
 data_dir <- here(laravel_storage_dir, "Data")
-extracted_CI_dir <- here(data_dir, "extracted_CI")
+extracted_CI_dir <- here(data_dir, "extracted_ci")
 daily_CI_vals_dir <- here(extracted_CI_dir, "daily_vals")
 cumulative_CI_vals_dir <- here(extracted_CI_dir, "cumulative_vals")
 
@@ -37,7 +37,7 @@ dir.create(here(weekly_CI_mosaic))
 dates <- date_list(0)
 
 #load pivot geojson
-pivot_sf_q <- st_read(here(geojson_dir, "pivot_20210625.geojson")) %>% dplyr::select(pivot, pivot_quadrant) %>% vect()
+pivot_sf_q <- st_read(here("pivot_20210625.geojson")) %>% dplyr::select(pivot, pivot_quadrant) %>% vect()
 
 #load and filter raster files
 raster_files <- list.files(planet_tif_folder,full.names = T, pattern = ".tif") #use pattern = '.tif$' or something else if you have multiple files in this folder
diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd
index 94dfc3e..e485db8 100644
--- a/r_app/CI_report_dashboard_planet.Rmd
+++ b/r_app/CI_report_dashboard_planet.Rmd
@@ -37,7 +37,7 @@ library(CAST)
 ```{r directories, message=FALSE, warning=FALSE, include=FALSE}
 laravel_storage_dir <- here("laravel_app/storage/app")
 data_dir <- here(laravel_storage_dir, "Data")
-extracted_CI_dir <- here(data_dir, "extracted_CI")
+extracted_CI_dir <- here(data_dir, "extracted_ci")
 daily_CI_vals_dir <- here(extracted_CI_dir, "daily_vals")
 cumulative_CI_vals_dir <- here(extracted_CI_dir, "cumulative_vals")
 harvest_dir <-  here(data_dir, "HarvestData")