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")))