don't test any long-running examples

R/geom-polypath.R

@@ -26,10 +26,12 @@
 #' @export
 #'
 #' @examples
+#' \donttest{
 #' library(ggplot2)
 #' load_longlake_data(which = "longlake_waterdf")
 #' ggplot(df_spatial(longlake_waterdf), aes(x, y, group = piece_id)) +
 #'   geom_polypath()
+#' }
 #'
 geom_polypath <- function (mapping = NULL, data = NULL, stat = "identity", position = "identity",
                            na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, rule = "winding",

R/layer-spatial-bbox.R

@@ -13,6 +13,7 @@
 #' @export
 #'
 #' @examples
+#' \donttest{
 #' library(ggplot2)
 #' load_longlake_data(which = c("longlake_waterdf", "longlake_depthdf"))
 #' ggplot() +
@@ -24,6 +25,7 @@
 #' ggplot() +
 #'   shadow_spatial(longlake_waterdf) +
 #'   layer_spatial(longlake_depthdf)
+#' }
 #'
 layer_spatial.bbox <- function(data, mapping = aes(), ..., detail = 30) {
   layer_spatial(sf_bbox_to_sf(data, detail = detail), mapping = mapping, ...)

R/layer-spatial-raster.R

@@ -17,10 +17,12 @@
 #' @export
 #'
 #' @examples
+#' \donttest{
 #' library(ggplot2)
 #' load_longlake_data(which = c("longlake_osm", "longlake_depth_raster"))
 #' ggplot() + layer_spatial(longlake_osm)
 #' ggplot() + layer_spatial(longlake_depth_raster) + scale_fill_continuous(na.value = NA)
+#' }
 #'
 layer_spatial.Raster <- function(data, mapping = NULL, interpolate = NULL, is_annotation = FALSE,
                                  lazy = FALSE, dpi = 150, ...) {

R/layer-spatial.R

@@ -16,6 +16,7 @@
 #' @importFrom ggplot2 aes
 #'
 #' @examples
+#' \donttest{
 #' library(ggplot2)
 #' load_longlake_data(
 #'   which = c(
@@ -43,6 +44,7 @@
 #'
 #'   # spatial-aware automagic north arrow
 #'   annotation_north_arrow(location = "br", which_north = "true")
+#' }
 #'
 layer_spatial <- function(data, mapping, ...) {
   UseMethod("layer_spatial")