added leading zero to weeknumber in file name format

This commit is contained in:
Martin Folkerts 2024-01-30 15:14:28 +01:00
parent 97d18123df
commit e224080232

View file

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