fix: minor modifications for better composite rasters display.

Author: rCarto

R/mf_init.R

@@ -35,7 +35,7 @@ mf_init <- function(x, expandBB = rep(0, 4)) {
     bb <- terra::ext(x)[c(1, 3, 2, 4)]
     y <- st_as_sfc(st_bbox(bb))
     st_crs(y) <- proj
-    mf_init(y, expandBB = c(rep(-.04, 4)) + expandBB)
+    mf_init(y, expandBB = c(rep(-.0399, 4)) + expandBB)
     return(invisible(x))
   }
 

R/mf_raster.R

@@ -125,7 +125,8 @@ mf_raster <- function(x,
   )
 
 
-
+  op <- par(mar = getOption("mapsf.mar"), no.readonly = TRUE)
+  on.exit(par(op))
 
 
   # catch arguments
@@ -146,6 +147,7 @@ mf_raster <- function(x,
     mf_raster_multiband(ops, expandBB, add)
   }
 
+  ops$clip <- FALSE
   # One band raster
   if (terra::nlyr(x) == 1) {
     # set the type - default to continuous for numeric raster