From 3fe61f8ab8a91968ff50c18b99c3c37b02423717 Mon Sep 17 00:00:00 2001 From: Martin Folkerts Date: Mon, 6 Nov 2023 12:14:13 +0100 Subject: [PATCH] wip --- r_app/2_CI_data_prep.R | 4 ++-- r_app/CI_report_dashboard_planet.Rmd | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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")