docs: use @examplesIf interactive() for slow examples

maelle · maelle · commit 496612d99f56 · 2024-09-02T12:59:27.000+02:00
Fix #51
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -36,4 +36,4 @@ Suggests:
     httr,
     markdown,
     knitr
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
diff --git a/R/rglobi.R b/R/rglobi.R
@@ -246,10 +246,9 @@ get_interactions_in_area <- function(bbox, ...){
 #' @keywords database
 #' @export
 #' @family areas
-#' @examples \donttest{
+#' @examplesIf interactive()
 #' get_interaction_areas ()
 #' get_interaction_areas (bbox=c(-67.87,12.79,-57.08,23.32))
-#' }
 get_interaction_areas <- function(bbox = NULL, read_csv = read_csv_online, ...){
   requesturl <- read_csv (get_globi_url("/locations?type=csv", ...))
   names (requesturl) <- c ("Latitude", "Longitude")
diff --git a/man/get_interaction_areas.Rd b/man/get_interaction_areas.Rd
