Transform built-in datasets to sf objects instead of sp.

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,

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 <- utils::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
 
@@ -42,7 +42,7 @@ NULL
 #' @description Administrative borders of Switzerland (level 1)
 #' @details This dataset comes from <https://gadm.org>.
 #' It was downloaded using [raster::getData()].
-#' @format `sp::SpatialPolygonsDataFrame`
+#' @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)