chore: Convert internal datasets to use {sf} + require R 3.5 (#944)

Author: olivroy

DESCRIPTION

@@ -48,7 +48,7 @@ URL: https://rstudio.github.io/leaflet/,
     https://github.com/rstudio/leaflet
 BugReports: https://github.com/rstudio/leaflet/issues
 Depends:
-    R (>= 3.1.0)
+    R (>= 3.5)
 Imports:
     crosstalk,
     htmltools,

NEWS.md

@@ -2,6 +2,10 @@
 
 * `{leaflet}` no longer install sp by default and attempts to convert object to sf internally before creating a map and warns when it fails conversion (@olivroy, #942).
 
+* The `breweries91`, `atlStorms2005`, and `gadmCHE` datasets are now `{sf}` objects (@olivroy, #944).
+
+* `{leaflet}` now requires R 3.5 and above (@olivroy, #944).
+
 * Color palette improvements. All color palette functions now support all `{viridisLite}` palettes ("magma", "inferno", "plasma", "viridis", "cividis", "rocket", "mako", and "turbo") (@jack-davison, #924).
 
 * Updated vignettes to replace `{sp}`/`{raster}` usage with `{sf}`/`{terra}` and their corresponding examples. (@jack-davison, #928)

R/data.R

@@ -17,13 +17,13 @@
 #' plot(Lat ~ Long, data = uspop2000, cex = sqrt(p), asp = 1, col = rgb(1, 0, 0, .3))
 
 if (FALSE) {
-uspop2000 <- NULL
-if (file.exists("inst/csv/uspop2000.csv")) {
-  uspop2000 <- read.csv(
-    text = readLines("inst/csv/uspop2000.csv", encoding = "UTF-8"),
-    stringsAsFactors = FALSE
-  )
-}
+  uspop2000 <- NULL
+  if (file.exists("inst/csv/uspop2000.csv")) {
+    uspop2000 <- utils::read.csv(
+      text = readLines("inst/csv/uspop2000.csv", encoding = "UTF-8"),
+      stringsAsFactors = FALSE
+    )
+  }
 }
 
 #' @docType data
@@ -32,7 +32,7 @@ if (file.exists("inst/csv/uspop2000.csv")) {
 #' @description Atlantic Ocean storms 2005
 #' @details This dataset contains storm tracks for selected storms
 #' in the Atlantic Ocean basin for the year 2005
-#' @format `sp::SpatialLinesDataFrame`
+#' @format `sf` object
 #' @family built in datasets
 NULL
 
@@ -41,8 +41,8 @@ NULL
 #' @title Administrative borders of Switzerland (level 1)
 #' @description Administrative borders of Switzerland (level 1)
 #' @details This dataset comes from <https://gadm.org>.
-#' It was downloaded using [getData()].
-#' @format `sp::SpatialPolygonsDataFrame`
+#' It was downloaded using [raster::getData()].
+#' @format `sf` object
 #' @family built in datasets
 #' @source
 #' <https://gadm.org>
@@ -57,6 +57,6 @@ NULL
 #' subset of a larger database that was compiled by students at the
 #' University of Marburg for a seminar called
 #' "The Geography of Beer, sustainability in the food industry"
-#' @format `sp::SpatialPointsDataFrame`
+#' @format `sf` object
 #' @family built in datasets
 NULL

data-raw/atlStorms2005.R

@@ -0,0 +1,6 @@
+## code to prepare `atlStorms2005` dataset goes here
+# legacy script
+
+atlStorms2005 <- sf::st_as_sf(atlStorms2005)
+
+usethis::use_data(atlStorms2005, overwrite = TRUE)

data-raw/breweries91.R

@@ -0,0 +1,4 @@
+## code to prepare `breweries91` dataset goes here
+# legacy script
+breweries91 <- sf::st_as_sf(breweries91)
+usethis::use_data(breweries91, overwrite = TRUE)

data-raw/gadmCHE.R

@@ -12,3 +12,6 @@ gadmCHE$VARNAME_1 <- iconv(gadmCHE$VARNAME_1, "UTF-8", "ASCII//TRANSLIT")
 usethis::use_data(gadmCHE, overwrite = TRUE)
 
 print(tools::showNonASCIIfile("data/gadmCHE.rda"))
+
+# Convert to sf object
+gadmCHE <- sf::st_as_sf(gadmCHE)