Remove inst/json, point docs to web links instead

The inclusion of these files tipped us over the 5Mb threshold which
triggers CRAN's scrutiny.

Author: jcheng5

cran-comments.md

@@ -1,13 +1,8 @@
 ## Comments
 
-#### 2019-11-08
-
-This submission is done to correct a testing issue with `scales`.
-
-This submission is done by Barret Schloerke <barret@rstudio.com> on behalf of Joe Cheng <joe@rstudio.com>. Please submit any changes to be made to <barret@rstudio.com>.
-
-- Barret
+#### 2022-02-15
 
+This submission is at Dr. Ripley's request; it fixes some unit tests that broke with a recent update to sf.
 
 ## Test environments
 
@@ -17,7 +12,7 @@ This submission is done by Barret Schloerke <barret@rstudio.com> on behalf of Jo
 * ubuntu 14.04.5 (on travis-ci), R version 3.6.1 (2017-01-27)
   * 0 errors | 0 warnings | 0 notes
 
-* win-builder (oldrelease, release, and devel)
+* win-builder (devel)
   * 0 errors | 0 warnings | 0 notes
 
 * R-hub windows-x86_64-devel (r-devel)
@@ -34,7 +29,7 @@ This submission is done by Barret Schloerke <barret@rstudio.com> on behalf of Jo
 
 ## revdepcheck results
 
-We checked 95 reverse dependencies, comparing R CMD check results across CRAN and dev versions of this package.
+We checked 151 reverse dependencies (145 from CRAN + 6 from BioConductor), comparing R CMD check results across CRAN and dev versions of this package.
 
-* We saw 0 new problems
-* We failed to check 0 packages
+ * We saw 0 new problems
+ * We failed to check 0 packages

docs/choropleths.Rmd

@@ -15,7 +15,7 @@ library(magrittr)
 
 ```{r fig.height = 4.75, echo = FALSE}
 # From http://leafletjs.com/examples/choropleth/us-states.js
-states <- geojsonio::geojson_read(system.file("json/us-states.geojson", package="leaflet"), what = "sp")
+states <- geojsonio::geojson_read("https://rstudio.github.io/leaflet/json/us-states.geojson", what = "sp")
 
 bins <- c(0, 10, 20, 50, 100, 200, 500, 1000, Inf)
 pal <- colorBin("YlOrRd", domain = states$density, bins = bins)
@@ -59,7 +59,7 @@ We'll start by loading the data from JSON. While the Leaflet.js example loads th
 In this case, we'll use the `geojsonio` package to load the data into `sp` objects, which will let us easily manipulate the geographic features, and their properties, in R.
 
 ```{r}
-states <- geojsonio::geojson_read(system.file("json/us-states.geojson", package="leaflet"), what = "sp")
+states <- geojsonio::geojson_read("https://rstudio.github.io/leaflet/json/us-states.geojson", what = "sp")
 class(states)
 names(states)
 ```
@@ -181,7 +181,7 @@ m %>% addLegend(pal = pal, values = ~density, opacity = 0.7, title = NULL,
 
 ```{r results = 'hide'}
 # From http://leafletjs.com/examples/choropleth/us-states.js
-states <- geojsonio::geojson_read(system.file("json/us-states.geojson", package="leaflet"), what = "sp")
+states <- geojsonio::geojson_read("https://rstudio.github.io/leaflet/json/us-states.geojson", what = "sp")
 
 bins <- c(0, 10, 20, 50, 100, 200, 500, 1000, Inf)
 pal <- colorBin("YlOrRd", domain = states$density, bins = bins)

docs/colors.Rmd

@@ -44,7 +44,7 @@ The `domain` argument tells the color function the range of input values. You ca
 library(rgdal)
 
 # From http://data.okfn.org/data/datasets/geo-boundaries-world-110m
-countries <- readOGR(system.file("json/countries.geojson", package="leaflet"))
+countries <- readOGR("https://rstudio.github.io/leaflet/json/countries.geojson")
 map <- leaflet(countries)
 ```
 

docs/json.Rmd

@@ -18,9 +18,9 @@ library(magrittr)
 ```{r message=FALSE,warning=FALSE}
 # From http://eric.clst.org/Stuff/USGeoJSON and
 # https://en.wikipedia.org/wiki/List_of_United_States_counties_and_county_equivalents
-nycounties <- rgdal::readOGR(system.file("json/nycounties.geojson", package="leaflet")) 
+nycounties <- rgdal::readOGR("https://rstudio.github.io/leaflet/json/nycounties.geojson") 
 # Or use the geojsonio equivalent:
-# nycounties <- geojsonio::geojson_read(system.file("json/nycounties.geojson", package="leaflet"), what = "sp") 
+# nycounties <- geojsonio::geojson_read("https://rstudio.github.io/leaflet/json/nycounties.geojson", what = "sp") 
 
 pal <- colorNumeric("viridis", NULL)
 
@@ -46,7 +46,7 @@ Note that for larger JSON data, using parsed is significantly slower than using
 A simple example using stringified data:
 
 ```{r}
-topoData <- readLines(system.file("json/us-10m.json", package="leaflet")) %>% paste(collapse = "\n") 
+topoData <- readLines("https://rstudio.github.io/leaflet/json/us-10m.json") %>% paste(collapse = "\n") 
 
 leaflet() %>% setView(lng = -98.583, lat = 39.833, zoom = 3) %>%
   addTiles() %>%
@@ -74,7 +74,7 @@ library(jsonlite, quietly = TRUE)
 library(jsonlite)
 
 # From http://data.okfn.org/data/datasets/geo-boundaries-world-110m
-geojson <- readLines(system.file("json/countries.geojson", package="leaflet"), warn = FALSE) %>%
+geojson <- readLines("https://rstudio.github.io/leaflet/json/countries.geojson", warn = FALSE) %>%
   paste(collapse = "\n") %>%
   fromJSON(simplifyVector = FALSE)
 

docs/legends.Rmd

@@ -15,7 +15,7 @@ library(magrittr)
 library(rgdal)
 
 # From http://data.okfn.org/data/datasets/geo-boundaries-world-110m
-countries <- readOGR(system.file("json/countries.geojson", package="leaflet"))
+countries <- readOGR("https://rstudio.github.io/leaflet/json/countries.geojson")
 map <- leaflet(countries) %>% addTiles()
 ```