R/raster_aggregate.r

In swish-climate-impact-assessment/awaptools: download and format Australian Water Availability Grids

################################################################
# name:raster_aggregate
raster_aggregate <- function(filename, aggregationfactor, delete = TRUE, fname = filename)
{
  r <- raster(filename)
  if(aggregationfactor > 1) r <- aggregate(r, fact = aggregationfactor, fun = mean)
  writeRaster(r, gsub('.grid','',fname), format="GTiff",
overwrite = TRUE)
  if(delete)
    {
      file.remove(filename)
    }
}