skip temp install during rcmd check

closes #355

R/test-helpers.R

@@ -16,6 +16,11 @@ local_mc <- function(env = parent.frame()) {
   )
 }
 
+#' Test if being run inside of R CMD check
+#' Inlined from https://rdrr.io/github/r-lib/cli/src/R/progress-utils.R
+#' @noRd
+is_rcmd_check <- function() Sys.getenv("_R_CHECK_PACKAGE_NAME_", "") != ""
+
 #' Temporarily set future plan
 #' @inheritParams future::strategy
 #' @noRd

tests/testthat/setup.R

@@ -1,2 +1,6 @@
-# multisession futures need locally installed metacheck
-local_mc(env = testthat::teardown_env())
+# better/stricter debugging of future, but slower
+# see https://future.futureverse.org/articles/future-4-non-exportable-objects.html
+withr::local_options(
+  list(future.globals.onReference = "error"),
+  .local_envir = testthat::teardown_env()
+)

tests/testthat/test-communicate.R

@@ -1,5 +1,9 @@
 # shiny app ====
 
+# multisession futures need locally installed metacheck
+# but not inside R cmd check where pkg is already installed
+if (!is_rcmd_check()) local_mc()
+
 test_that("shiny app works", {
   app <- shinytest::ShinyDriver$new(mcControlsApp())
   app$click("test-dois-fill_ex")

tests/testthat/test-email.R

@@ -21,6 +21,10 @@ test_that("email is smaller than 102KB to meet google limit", {
   expect_true(lobstr::obj_size(email_source) / 1000 < 102)
 })
 
+# multisession futures need locally installed metacheck
+# but not inside R cmd check where pkg is already installed
+if (!is_rcmd_check()) local_mc()
+
 test_that("email can be send", {
   skip_if_not_smtp_auth()
   skip_if_offline()