Remove dependency on package maps

DESCRIPTION

@@ -15,7 +15,6 @@ Imports:
 Depends:
     R (>= 3.1.0),
     terra,
-    maps,
     grDevices,
     graphics,
     methods,

NAMESPACE

@@ -29,7 +29,6 @@ export(lets.subsetPAM)
 export(lets.summarizer)
 export(lets.transf)
 import(geosphere)
-import(maps)
 import(sf)
 import(terra)
 importFrom(grDevices,colorRampPalette)

R/letsR-package.R

@@ -50,7 +50,7 @@
 #' 
 #' @references Vilela, B., & Villalobos, F. (2015). letsR: a new R package for data handling and analysis in macroecology. Methods in Ecology and Evolution.
 #' 
-#' @import geosphere maps terra sf
+#' @import geosphere terra sf
 #' @importFrom grDevices colorRampPalette dev.new dev.off
 #' @importFrom graphics abline par plot.new segments
 #' @importFrom methods is

R/lets_maplizer.R

@@ -31,7 +31,8 @@
 #' resu <- lets.maplizer(PAM, trait, PAM$S, ras = TRUE)
 #' head(resu$Matrix)
 #' plot(resu$Raster, xlab = "Longitude", ylab = "Latitude", 
-#' main = "Mean description year per site") ; map(add = TRUE)
+#' main = "Mean description year per site")
+#' 
 #' }
 #' 
 #' @export

R/lets_pamcrop.R

@@ -20,6 +20,8 @@
 #'
 #' @examples \dontrun{
 #' data(PAM)
+#' data("wrld_simpl")
+#' 
 #' # PAM before crop
 #' plot(PAM, xlab = "Longitude", ylab = "Latitude",
 #'      main = "Phyllomedusa species richness")
@@ -30,6 +32,7 @@
 #' PAM_crop <- lets.pamcrop(PAM, Brazil, remove.sp = TRUE)
 #' plot(PAM_crop, xlab = "Longitude", ylab = "Latitude",
 #'      main = "Phyllomedusa species richness (Brazil crop)")
+#' plot(sf::st_geometry(wrld_simpl), add = TRUE)
 #' }
 #' 
 #' @export

R/lets_presab_grid.R

@@ -28,7 +28,7 @@
 #' @examples \dontrun{
 #' # Species polygons
 #' data("Phyllomedusa")
-#' 
+#' data("wrld_simpl")
 #' # Grid 
 #' sp.r <- terra::as.polygons(terra::rast(resol = 5, 
 #' crs = terra::crs(Phyllomedusa),
@@ -45,7 +45,7 @@
 #' colors <- c("white", colfunc(max(rich_plus1)))
 #' plot(resu$grid, border = "gray40",
 #'      col = colors[rich_plus1])
-#' map(add = TRUE)
+#' plot(sf::st_geometry(wrld_simpl), add = TRUE)
 #' }
 #' 
 #' 

R/plot_PresenceAbsence.R

@@ -59,12 +59,15 @@ plot.PresenceAbsence <- function(x, name = NULL, world = TRUE,
     # Species position in the PAM
     pos <- which(x$Sp == name)
     # Transform the one species in raster
-    r <- rasterize(x$Presen[ , 1:2], x$Rich,  x$Presen[ , (pos + 2)])
+    r <- terra::rasterize(x$Presen[ , 1:2], 
+                          x$Rich, 
+                          x$Presen[ , (pos + 2)])
     # Plot
     plot(r, col = c("white", col_name), legend = FALSE, ...)
   }
   if (world) {
-    map(add = TRUE)
+    wrld_simpl <- get(utils::data("wrld_simpl", package = "letsR"))
+    plot(sf::st_geometry(wrld_simpl), add = TRUE)
   }
   # Avoid return map
   invisible(NULL)