docs: use rlang::is_interactive(), override for pkgdown website

R/client.R

@@ -15,7 +15,7 @@
 #' @export
 #'
 #' @seealso `WFSClient` in package `ows4R`.
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' wfs <- emodnet_init_wfs_client(service = "bathymetry")
 emodnet_init_wfs_client <- function(service,
                                     service_version = NULL,

R/emodnet_wfs.R

@@ -10,7 +10,7 @@
 #'
 #' @return Tibble of available EMODnet Web Feature Services
 #'
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' emodnet_wfs()
 #' @export
 emodnet_wfs <- memoise::memoise(.emodnet_wfs)

R/info.R

@@ -14,7 +14,7 @@
     service_url = get_service_name(wfs$getUrl()),
     layer_name = purrr::map_chr(wfs_layers, ~ .x$getName()),
     title = purrr::map_chr(wfs_layers, ~ .x$getTitle()),
     abstract = purrr::map_chr(wfs_layers, ~ get_abstract_null(.x)),
     class = purrr::map_chr(wfs_layers, ~ .x$getClassName()),
     format = purrr::map_chr(wfs_layers, guess_layer_format)
   ) %>%
@@ -65,7 +65,7 @@
     title = purrr::map_chr(capabilities$getFeatureTypes(), ~ .x$getTitle()),
     abstract = purrr::map_chr(
       capabilities$getFeatureTypes(),
       ~ get_abstract_null(.x)
     ),
     class = purrr::map_chr(capabilities$getFeatureTypes(), ~ .x$getClassName()),
     format = purrr::map_chr(capabilities$getFeatureTypes(), guess_layer_format)
@@ -91,7 +91,7 @@
 #' @export
 #' @describeIn emodnet_get_wfs_info Get info on all layers from
 #' an EMODnet WFS service.
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' emodnet_get_wfs_info(service = "bathymetry")
 #' # Query a wfs object
 #' wfs_bio <- emodnet_init_wfs_client("biology")

R/layer_attributes.R

@@ -10,7 +10,7 @@
 #' @family attributes
 #' @export
 #'
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' layer_attributes_summarise(
 #'   service = "biology",
 #'   layer = "mediseh_zostera_m_pnt"
@@ -44,7 +44,7 @@ layer_attributes_summarise <- function(wfs = NULL,
 #' @family attributes
 #' @export
 #'
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' layer_attribute_descriptions(
 #'   service = "biology",
 #'   layer = "mediseh_zostera_m_pnt"
@@ -76,7 +76,7 @@ layer_attribute_descriptions <- function(wfs = NULL,
 #' @return character vector of layer attribute (variable) names.
 #' @export
 #'
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' layer_attributes_get_names(
 #'   service = "biology",
 #'   layer = "mediseh_zostera_m_pnt"
@@ -114,7 +114,7 @@ layer_attributes_get_names <- function(wfs = NULL,
 #' @family attributes
 #' @export
 #'
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' wfs <- emodnet_init_wfs_client(service = "biology")
 #' layer_attributes_get_names(wfs, layer = "mediseh_zostera_m_pnt")
 #' layer_attribute_inspect(
@@ -183,7 +183,7 @@ layer_attribute_inspect <- function(wfs = NULL,
 #' @family attributes
 #' @export
 #'
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' layer_attributes_tbl(service = "biology", layer = "mediseh_zostera_m_pnt")
 layer_attributes_tbl <- function(wfs = NULL,
                                  service = NULL,

R/layers.R

@@ -41,7 +41,7 @@
 #' an `sf` out of a single layer request instead of a list of length 1.
 #' @export
 #'
-#' @examplesIf interactive()
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true") || interactive()
 #' # Layers as character vector
 #' emodnet_get_layers(
 #'   service = "biology",
@@ -160,7 +160,7 @@
   # if reduce_layers = T, reduce to single sf --------------------------------
   if (reduce_layers) {
     tryCatch(
       out <- purrr::reduce(out, rbind),
       error = function(e) {
         cli::cli_abort(
           c(