Avoid looking at the RStudio state when running tests inside of it.

mrc-ide · Jan 18, 2024 · 2933414 · 2933414
1 parent ceb0d66
commit 2933414
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/R/interactive.R b/R/interactive.R
@@ -7,7 +7,8 @@ is_plausible_orderly_report <- function(path) {
 }
 
 rstudio_get_current_active_editor_path <- function() {
-  if (rstudioapi::isAvailable()) {
+  # Avoid looking at the RStudio state when running tests inside of it.
+  if (!is_testing() && rstudioapi::isAvailable()) {
     rstudioapi::getSourceEditorContext()$path
   } else {
     NULL

diff --git a/R/util.R b/R/util.R
@@ -641,3 +641,10 @@ paths_are_different <- function(x, y) {
     x_real != y_real
   }, error = function(e) FALSE)
 }
+
+
+is_testing <- function() {
+  # Copied from testthat, to avoid having the package as a run-time dependency.
+  # https://github.com/r-lib/testthat/blob/fe50a222c62cc8733b397690caf3b2a95856f902/R/test-env.R#L20
+  identical(Sys.getenv("TESTTHAT"), "true")
+}