From a19e7667e6ef3521b0ca78218d73ceb1b453fc4b Mon Sep 17 00:00:00 2001 From: Martin Folkerts Date: Tue, 30 Jan 2024 15:17:26 +0100 Subject: [PATCH] wip --- r_app/2_CI_data_prep.R | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/r_app/2_CI_data_prep.R b/r_app/2_CI_data_prep.R index 03ee3f3..84e61bc 100644 --- a/r_app/2_CI_data_prep.R +++ b/r_app/2_CI_data_prep.R @@ -226,10 +226,9 @@ if(sum(missing_pixels_count$thres_5perc)>1){ plot(x$CI, main = paste("CI map", dates$week)) #plotRGB(x, main = paste("RGB image week", dates$week)) -# writeRaster(x, here(weekly_CI_mosaic ,paste0("week_", dates$week, "_", dates$year, ".tif")), overwrite=TRUE) -writeRaster(x, here(weekly_CI_mosaic ,paste0("week_", sprintf("%02d", dates$week), "_", dates$year, ".tif")), overwrite=TRUE) -message("raster written/ made") -message( here(weekly_CI_mosaic ,paste0("week_", dates$week, "_", dates$year, ".tif"))) +file_path_tif <- here(weekly_CI_mosaic ,paste0("week_", sprintf("%02d", dates$week), "_", dates$year, ".tif")) +writeRaster(x, file_path_tif, overwrite=TRUE) +message("Raster written/made at: ", file_path_tif) # Extracting CI