chore: disable API calls on CRAN builders

GIScience · Oct 4, 2024 · f8c4aee · f8c4aee
1 parent 8df0852
commit f8c4aee
Show file tree

Hide file tree

Showing 18 changed files with 38 additions and 38 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -13,7 +13,6 @@ Imports: geojsonsf, httr, jsonlite, jsonvalidate, keyring, leaflet, utils, V8, x
 Suggests: covr, ggplot2, googlePolylines, lwgeom, knitr, mapview, pkgdown, RColorBrewer, rmarkdown, roxygen2, sf, testthat, units
 License: Apache License 2.0 | file LICENSE
 Encoding: UTF-8
-LazyData: true
 VignetteBuilder: knitr
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2
diff --git a/R/directions.R b/R/directions.R
@@ -16,7 +16,7 @@
 #' @template return-parsed
 #' @template return-sf
 #' @examples
-#' coordinates <- list(c(8.34234, 48.23424), c(8.34423, 48.26424))
+#' \donttest{coordinates <- list(c(8.34234, 48.23424), c(8.34423, 48.26424))
 #'
 #' # simple call
 #' ors_directions(coordinates, preference="fastest")
@@ -27,7 +27,7 @@
 #' # list of locations as `data.frame` output as simple features `sf` object
 #' locations <- data.frame(lng = c(8.34234, 8.327807, 8.34423),
 #'                         lat = c(48.23424, 48.239368, 48.26424))
-#' ors_directions(locations, output = "sf")
+#' ors_directions(locations, output = "sf")}
 #' @template author
 #' @export
 ors_directions <- function(coordinates,

diff --git a/R/elevation.R b/R/elevation.R
@@ -17,7 +17,7 @@
 #' @template return-parsed
 #' @template return-sf
 #' @examples
-#' # point coordinates
+#' \donttest{# point coordinates
 #' coordinates <- c(13.349762, 38.11295)
 #' ors_elevation("point", coordinates)
 #'
@@ -30,7 +30,7 @@
 #'   c(13.349762, 38.11295),
 #'   c(12.638397, 37.645772)
 #' )
-#' ors_elevation("polyline", coordinates, format_out = "encodedpolyline")
+#' ors_elevation("polyline", coordinates, format_out = "encodedpolyline")}
 #' @template author
 #' @importFrom httr add_headers
 #' @export

diff --git a/R/geocode.R b/R/geocode.R
@@ -19,7 +19,7 @@
 #'   tag which surrounds the given coordinate.
 #' @template author
 #' @examples
-#' ## locations of Heidelberg around the globe
+#' \donttest{## locations of Heidelberg around the globe
 #' x <- ors_geocode("Heidelberg")
 #'
 #' ## set the number of results returned
@@ -33,7 +33,7 @@
 #'
 #' ## reverse geocoding
 #' location <- x$features[[1L]]$geometry$coordinates
-#' y <- ors_geocode(location = location, layers = "locality", size = 1)
+#' y <- ors_geocode(location = location, layers = "locality", size = 1)}
 #' @export
 ors_geocode <- function(query,
                         location,

diff --git a/R/isochrones.R b/R/isochrones.R
@@ -22,10 +22,10 @@
 #' @template return-parsed
 #' @template return-sf
 #' @examples
-#' ors_isochrones(c(8.34234, 48.23424), interval=20)
+#' \donttest{ors_isochrones(c(8.34234, 48.23424), interval=20)
 #'
 #' locations <- list(c(8.681495, 49.41461), c(8.686507,49.41943))
-#' ors_isochrones(locations, range=c(300, 200))
+#' ors_isochrones(locations, range=c(300, 200))}
 #' @template author
 #' @export
 ors_isochrones <- function(locations,

diff --git a/R/matrix.R b/R/matrix.R
@@ -15,7 +15,7 @@
 #' @template return-text
 #' @template return-parsed
 #' @examples
-#' coordinates <- list(
+#' \donttest{coordinates <- list(
 #'   c(9.970093, 48.477473),
 #'   c(9.207916, 49.153868),
 #'   c(37.573242, 55.801281),
@@ -29,7 +29,7 @@
 #' res$durations / 3600
 #'
 #' # distance in km
-#' res$distances
+#' res$distances}
 #' @template author
 #' @export
 ors_matrix <- function(locations,

diff --git a/R/optimization.R b/R/optimization.R
@@ -16,7 +16,7 @@
 #' @template return-text
 #' @template return-parsed
 #' @examples
-#' home_base <- c(2.35044, 48.71764)
+#' \donttest{home_base <- c(2.35044, 48.71764)
 #'
 #' vehicles <- vehicles(
 #'   id = 1:2,
@@ -45,7 +45,7 @@
 #'   skills = list(1, 1, 2, 2, 14, 14)
 #' )
 #'
-#' ors_optimization(jobs, vehicles)
+#' ors_optimization(jobs, vehicles)}
 #' @template author
 #' @export
 ors_optimization <- function(jobs,

diff --git a/R/pois.R b/R/pois.R
@@ -24,7 +24,7 @@
 #' @template return-sf
 #' @templateVar valid_for `request = "pois"`
 #' @examples
-#' # POI categories list
+#' \donttest{# POI categories list
 #' ors_pois('list')
 #'
 #' # POIs around a buffered point
@@ -54,7 +54,7 @@
 #'          ))
 #'
 #' # POI Statistics
-#' ors_pois("stats", geometry = geometry)
+#' ors_pois("stats", geometry = geometry)}
 #' @template author
 #' @export
 ors_pois <- function(request = c('pois', 'stats', 'list'),

diff --git a/R/snap.R b/R/snap.R
@@ -16,14 +16,14 @@
 #' @template return-parsed
 #' @template return-sf
 #' @examples
-#' locations <- list(
+#' \donttest{locations <- list(
 #'   c(8.669629, 49.413025),
 #'   c(8.675841, 49.418532),
 #'   c(8.665144, 49.415594)
 #' )
 #'
 #' # query for locations snapped onto the OpenStreetMap road network
-#' res <- ors_snap(locations, radius = 350)
+#' res <- ors_snap(locations, radius = 350)}
 #' @template author
 #' @export
 ors_snap <- function(locations,
@@ -55,5 +55,4 @@ ors_snap <- function(locations,
     body = body,
     encode = "json",
     output = output
-  )
-}
+  )}
diff --git a/man/ors_directions.Rd b/man/ors_directions.Rd
diff --git a/man/ors_elevation.Rd b/man/ors_elevation.Rd
diff --git a/man/ors_geocode.Rd b/man/ors_geocode.Rd
diff --git a/man/ors_isochrones.Rd b/man/ors_isochrones.Rd
diff --git a/man/ors_matrix.Rd b/man/ors_matrix.Rd
diff --git a/man/ors_optimization.Rd b/man/ors_optimization.Rd
diff --git a/man/ors_pois.Rd b/man/ors_pois.Rd
diff --git a/man/ors_snap.Rd b/man/ors_snap.Rd
diff --git a/vignettes/openrouteservice.Rmd b/vignettes/openrouteservice.Rmd
@@ -13,16 +13,18 @@ vignette: >
 ---
 
 ```{r config, include=FALSE}
+NOT_CRAN <- identical(tolower(Sys.getenv("NOT_CRAN")), "true")
 ## increase width for code output
 options(width = 100)
 ## set up knitr defaults
-knitr::opts_chunk$set(eval = TRUE, out.width = '100%', out.height = '560px')
+knitr::opts_chunk$set(purl = NOT_CRAN, eval = NOT_CRAN,
+                      out.width = '100%', out.height = '560px')
 ```
 
 ## Get started
 
 <!-- README START -->
-```{r doc, include=FALSE}
+```{r doc, include=FALSE, eval=TRUE}
 ## create alias
 doc <- openrouteservice:::doc_link
 ```
@@ -84,7 +86,7 @@ former approach allowing to bypass the keyring infrastructure.
 `ors_directions()` interfaces the ORS directions service to compute routes
 between given `coordinates`.
 
-```{r directions, eval=TRUE}
+```{r directions}
 library(openrouteservice)
 
 coordinates <- list(c(8.34234, 48.23424), c(8.34423, 48.26424))