Only spellcheck when not testthat:::on_cran()

rstudio · Mar 24, 2024 · 244e643 · 244e643
1 parent 5941afa
commit 244e643
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/tests/spelling.R b/tests/spelling.R
@@ -1,3 +1,13 @@
-if(requireNamespace('spelling', quietly = TRUE))
-  spelling::spell_check_test(vignettes = TRUE, error = FALSE,
-                             skip_on_cran = TRUE)
+# testthat:::on_cran
+is_interactive <- rlang::is_interactive()
+not_cran <- isTRUE(as.logical(Sys.getenv("NOT_CRAN", "false")))
+on_cran <- !is_interactive && !not_cran
+
+if (!on_cran) {
+  if (requireNamespace("spelling", quietly = TRUE)) {
+    spelling::spell_check_test(
+      vignettes = TRUE, error = FALSE,
+      skip_on_cran = TRUE
+    )
+  }
+}