fix cleanup in mapAdd example when nosuggests TRUE

Author: achubaty

R/map.R

@@ -42,6 +42,11 @@ utils::globalVariables(c(
 #' ex_dir <- withr::local_tempdir("example_mapAdd_")
 #' withr::local_dir(ex_dir)
 #'
+#' withr::local_options(list(
+#'   map.tilePath = file.path(ex_dir, "tiles"),
+#'   map.useParallel = FALSE
+#' ))
+#'
 #' StudyArea <- list(cbind(
 #'   x = c(-122.98, -116.1, -99.2, -106, -122.98),
 #'   y = c(59.9, 65.73, 63.58, 54.79, 59.9)
@@ -59,11 +64,6 @@ utils::globalVariables(c(
 #' )
 #'
 #' if (require("SpaDES.tools", quietly = TRUE)) {
-#'   withr::local_options(list(
-#'     map.tilePath = file.path(ex_dir, "tiles"),
-#'     map.useParallel = FALSE
-#'   ))
-#'
 #'   smallStudyArea <- SpaDES.tools::randomPolygon(studyArea(ml), 1e5)
 #'   smallStudyArea$ID <- 1L
 #'   smallStudyArea$shinyLabel <- "zone2"
@@ -178,10 +178,11 @@ utils::globalVariables(c(
 #'   #                             postHocAnalysisGroups = "analysisGroup2",
 #'   #                             postHocAnalyses = "all")
 #'
-#'   ## cleanup
-#'   withr::deferred_run()
 #' }
 #'
+#' ## cleanup
+#' withr::deferred_run()
+#'
 mapAdd <- function(obj, map, layerName,
                    overwrite = getOption("map.overwrite", FALSE), ...) {
   UseMethod("mapAdd", obj)