include if interactive()

R-ArcGIS · Feb 9, 2024 · 0b60f78 · 0b60f78
1 parent ea2dd03
commit 0b60f78
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/R/create-service.R b/R/create-service.R
@@ -30,9 +30,11 @@
 #' @export
 #' @examples
 #' \donttest{
+#' if (interactive()) {
 #'   set_arc_token(auth_code())
 #'   create_feature_server("My empty feature server")
 #' }
+#' }
 create_feature_server <- function(
     service_name,
     description = "",

diff --git a/man/create_feature_server.Rd b/man/create_feature_server.Rd