Move extdata to data

Author: jcheng5

R/data.R

@@ -24,3 +24,36 @@ if (file.exists('inst/csv/uspop2000.csv')) {
   )
 }
 }
+
+#' @docType data
+#' @name atlStorms2005
+#' @title Atlantic Ocean storms 2005
+#' @description Atlantic Ocean storms 2005
+#' @details This dataset contains storm tracks for selected storms
+#' in the Atlantic Ocean basin for the year 2005
+#' @format \code{sp::SpatialLinesDataFrame}
+NULL
+
+#' @docType data
+#' @name gadmCHE
+#' @title Administrative borders of Switzerland (level 1)
+#' @description Administrative borders of Switzerland (level 1)
+#' @details This dataset comes from \url{http://gadm.org}.
+#' It was downloaded using \code{\link{getData}}.
+#' @format \code{sp::SpatialPolygonsDataFrame}
+#' @source
+#' \url{http://gadm.org}
+NULL
+
+#'
+#' @docType data
+#' @name breweries91
+#' @title Selected breweries in Franconia
+#' @description Selected breweries in Franconia (zip code starting with 91...)
+#' @details This dataset contains selected breweries in Franconia. It is a
+#' 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 \code{sp::SpatialPointsDataFrame}
+NULL
+

inst/extdata/atlStorms2005.rds renamed to data/atlStorms2005.rds

@@ -15,7 +15,6 @@ pgontest <- function(x) {
   leaflet(x) %>% addTiles() %>% addPolygons()
 }
 
-gadmCHE <- readRDS(system.file("extdata", "gadmCHE.rds", package = "leaflet"))
 poldata <- st_as_sf(gadmCHE)
 
 (r1 <- pgontest(poldata))
@@ -33,7 +32,6 @@ expect_maps_equal(r1, r5)
 
 ### lines -----------------------------------------------------------------
 
-atlStorms2005 <- readRDS(system.file("extdata", "atlStorms2005.rds", package = "leaflet"))
 lindata <- st_as_sf(atlStorms2005)
 
 plinetest <- function(x) {
@@ -57,7 +55,6 @@ expect_maps_equal(l3, l7)
 expect_maps_equal(l3, l8)
 
 ### points ----------------------------------------------------------------
-breweries91 <- readRDS(system.file("extdata", "breweries91.rds", package = "leaflet"))
 ptsdata <- st_as_sf(breweries91)
 class(ptsdata)  # sf, data.frame
 class(st_geometry(ptsdata))  # sfc_POINT, sfc