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.<br><br> 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)