From e2240802325efa445d5c1e5a5019f60bc7e9dd7a Mon Sep 17 00:00:00 2001 From: Martin Folkerts Date: Tue, 30 Jan 2024 15:14:28 +0100 Subject: [PATCH] added leading zero to weeknumber in file name format --- r_app/2_CI_data_prep.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/r_app/2_CI_data_prep.R b/r_app/2_CI_data_prep.R index d12a2ea..03ee3f3 100644 --- a/r_app/2_CI_data_prep.R +++ b/r_app/2_CI_data_prep.R @@ -227,7 +227,7 @@ 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_", 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")))