turnoff renv in tests

Author: gogonzo

R/zzz.R

@@ -2,6 +2,8 @@
   # adapted from https://github.com/r-lib/devtools/blob/master/R/zzz.R
   teal_default_options <- list(
     teal.show_js_log = FALSE,
+    # todo: make below teal.renv.enable = FALSE during run_examples, test_package, r cmd check
+    #       run_examples probably doesn't set any sysvars but maybe detecting run_examples in sys.calls() helps
     teal.renv.enable = TRUE,
     shiny.sanitize.errors = FALSE
   )

tests/testthat/setup-options.R

@@ -1,9 +1,27 @@
+# we should't run lockfile process multiple times in tests as it starts background process which is not
+# possible to kill once run. It means that background R sessions are being cumulated
 withr::local_options(
-  list(
-    warnPartialMatchDollar = TRUE,
-    warnPartialMatchArgs = TRUE,
-    warnPartialMatchAttr = TRUE,
-    teal.renv.enable = FALSE
-  ),
+  list(teal.renv.enable = FALSE),
   .local_envir = testthat::teardown_env()
 )
+
+# `opts_partial_match_old` is left for exclusions due to partial matching in dependent packages (i.e. not fixable here)
+# it might happen that it is not used right now, but it is left for possible future use
+# use with: `withr::with_options(opts_partial_match_old, { ... })` inside the test
+opts_partial_match_old <- list(
+  warnPartialMatchDollar = getOption("warnPartialMatchDollar"),
+  warnPartialMatchArgs = getOption("warnPartialMatchArgs"),
+  warnPartialMatchAttr = getOption("warnPartialMatchAttr")
+)
+opts_partial_match_new <- list(
+  warnPartialMatchDollar = TRUE,
+  warnPartialMatchArgs = TRUE,
+  warnPartialMatchAttr = TRUE
+)
+
+if (isFALSE(getFromNamespace("on_cran", "testthat")()) && requireNamespace("withr", quietly = TRUE)) {
+  withr::local_options(
+    opts_partial_match_new,
+    .local_envir = testthat::teardown_env()
+  )
+}