Move sp set_evolution_status function and update documentation

DESCRIPTION

@@ -29,6 +29,6 @@ Suggests:
     sf,
     stringr,
     testthat
-RoxygenNote: 7.2.2
+RoxygenNote: 7.2.3
 Roxygen: list(markdown = TRUE)
 VignetteBuilder: knitr

R/plot-map.R

@@ -149,15 +149,18 @@ plot_usmap <- function(regions = c("states", "state", "counties", "county"),
   ggplot2::ggplot(data = map_df) + polygon_layer + label_layer + ggplot2::coord_equal() + theme
 }
 
-#' This creates a nice map theme for use in plot_usmap.
-#' It is borrowed from the ggthemes package located at this repository:
-#'   https://github.com/jrnold/ggthemes
+#' Convenient theme map
+#'
+#' @description
+#' This creates a nice map theme for use in [plot_usmap].
+#' It is borrowed from the `ggthemes` package located at this repository:
+#'   https://github.com/jrnold/ggthemes.
 #'
 #' This function was manually rewritten here to avoid the need for
 #'  another package import.
 #'
-#' All theme functions (i.e. theme_bw, theme, element_blank, %+replace%)
-#'  come from ggplot2.
+#' All theme functions (i.e. `theme_bw`, `theme`, `element_blank`, `%+replace%`)
+#'  come from [ggplot2].
 #'
 #' @keywords internal
 theme_map <- function(base_size = 9, base_family = "") {

R/transform.R

@@ -48,6 +48,7 @@ usmap_transform <- function(data,
                             output_names = c("x", "y")) {
 
   # check for sf
+  set_sp_evolution_status()
   if (!requireNamespace("sf", quietly = TRUE)) {
     stop("`sf` must be installed to use `usmap_transform`.
          Use: install.packages(\"sf\") and try again.")
@@ -199,6 +200,8 @@ usmap_transform.data.frame <- function(data,
 #'
 #' @export
 usmap_crs <- function() {
+  set_sp_evolution_status()
+
   if (!requireNamespace("sf", quietly = TRUE)) {
     stop("`sf` must be installed to use `usmap_transform`.
          Use: install.packages(\"sf\") and try again.")
@@ -212,3 +215,19 @@ usmap_crs <- function() {
   sp::CRS(paste("+proj=laea +lat_0=45 +lon_0=-100 +x_0=0 +y_0=0",
                 "+a=6370997 +b=6370997 +units=m +no_defs"))
 }
+
+#' Set sp evolution status
+#'
+#' @description
+#' Sets the `sp` evolution status to "2" to
+#' force usage of `sf` instead of `rgdal`
+#' which is being retired.
+#'
+#' This can be removed in the future when the evolution status
+#' is set to >= 2 by default in `sf`.
+#'
+#' @keywords internal
+set_sp_evolution_status <- function() {
+  if (sp::get_evolution_status() < 2L)
+    sp::set_evolution_status(2L)
+}

R/usmap.R

@@ -70,13 +70,6 @@
 if (getRversion() >= "2.15.1")
   utils::globalVariables(c("abbr", "county", "group", "x", "y"))
 
-.onLoad <- function(libname, pkgname) {
-  ## Ensure latest evolution status of sp is used.
-  ## Replaces rgdal usage with sf package.
-  if (sp::get_evolution_status() != 2L)
-    sp::set_evolution_status(2L)
-}
-
 #' Retrieve US map data
 #'
 #' @param regions The region breakdown for the map, can be one of