Estou precisando fazer uma montagem de múltiplos rasters
para um único raster
. Tanto a função raster::merge
quanto raster::mosaic
funcionam bem nessa situação, porém preciso fazer um do.call
para chamar a função para a montagem dos multiplos rasters
que estão em uma lista.
Como fazer isso paralelizado? Como fazer o do.call mais rápido?
require(raster)
r <- raster(ncol=100, nrow=100)
r1 <- crop(r, extent(-10, 11, -10, 11))
r1[] <- 1:ncell(r1)
r2 <- crop(r, extent(0, 20, 0, 20))
r2[] <- 1:ncell(r2)
r3 <- crop(r, extent(9, 30, 9, 30))
r3[] <- 1:ncell(r3)
rast.list <- list(r1, r2, r3)
rast.list$fun <- mean
rast.mosaic <- do.call(mosaic,rast.list)