feat: basemap function - fix #37

NAMESPACE

@@ -10,6 +10,7 @@ export(filter_by_ocean)
 export(filter_by_polygon)
 export(filter_by_species)
 export(filter_by_year)
+export(geom_basemap)
 export(get_cpr_north_data)
 export(get_cpr_south_data)
 export(get_forcis_db)

R/geom_basemap.R

@@ -0,0 +1,27 @@
+#' Add a World basemap to a ggplot object
+#'
+#' @description
+#' This function creates a World base map that can be added to a ggplot object.
+#' Spatial layers come from the Natural Earth project 
+#' (<https://www.naturalearthdata.com/>).
+#'
+#' @return A `ggplot` object.
+#' 
+#' @export
+#'
+#' @examples
+#' ## ADD EXAMPLE ----
+
+geom_basemap <- function() {
+
+    list(
+      geom_sf(data = ne_oceans, fill = "#cdeafc", col = "#cdeafc", 
+              linewidth = 0.10) +
+      geom_sf(data = ne_graticules, col = "#bae2fb", 
+              linewidth = 0.10) +
+      geom_sf(data = ne_countries, fill = "#a6a6a6", col = "#b1b1b1", 
+              linewidth = 0.10) +
+      geom_sf(data = ne_bbox, fill = NA, col = "#a6a6a6", 
+              linewidth = 0.75)
+    )
+}

R/map_distribution.R

@@ -47,16 +47,7 @@ map_distribution <- function(data, col = "red", ...) {
 
   ggplot() +
 
-    ### Basemap ----
-
-    geom_sf(data = ne_oceans, fill = "#cdeafc", col = "#cdeafc", 
-            linewidth = 0.10) +
-    geom_sf(data = ne_graticules, col = "#bae2fb", 
-            linewidth = 0.10) +
-    geom_sf(data = ne_countries, fill = "#a6a6a6", col = "#b1b1b1", 
-            linewidth = 0.10) +
-    geom_sf(data = ne_bbox, fill = NA, col = "#a6a6a6", 
-            linewidth = 0.75) +
+    geom_basemap() +
 
 
     ### Data ---