Add skip_on_ci() function (#826)

Fixes #825

NAMESPACE

@@ -128,6 +128,7 @@ export(skip_if_offline)
 export(skip_if_translated)
 export(skip_on_appveyor)
 export(skip_on_bioc)
+export(skip_on_ci)
 export(skip_on_cran)
 export(skip_on_os)
 export(skip_on_travis)

NEWS.md

@@ -8,6 +8,8 @@
 
 * `skip_if_offline()` skips tests if an internet connection is not available
   (#685).
+* `skip_on_ci()` skips tests on continuous integration systems 
+  (@mbjoseph, #825).
 
 * Fixed an issue where `devtools::test()` could fail if run multiple times
   within the same R session for a package containing Catch tests.

R/skip.R

@@ -26,6 +26,9 @@
 #' `skip_on_appveyor()` skips tests on appveyor by inspecting the
 #' `APPVEYOR` environment variable.
 #'
+#'#' `skip_on_ci()` skips tests on continuous integration systems by inspecting
+#' the `CI` environment variable.
+#'
 #' `skip_on_bioc()` skips tests on Bioconductor by inspecting the
 #' `BBS_HOME` environment variable.
 #'
@@ -163,6 +166,16 @@ skip_on_appveyor <- function() {
   skip("On Appveyor")
 }
 
+#' @export
+#' @rdname skip
+skip_on_ci <- function() {
+  if (!isTRUE(as.logical(Sys.getenv("CI")))) {
+    return(invisible(TRUE))
+  }
+
+  skip("On CI")
+}
+
 #' @export
 #' @rdname skip
 skip_on_bioc <- function() {