Avoid is.R()

ropensci · Mar 4, 2024 · bf399e8 · bf399e8
1 parent 5eccf63
commit bf399e8
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: drake
 Title: A Pipeline Toolkit for Reproducible Computation at Scale
-Version: 7.13.8
+Version: 7.13.9
 Authors@R: c(
   person(
     given = c("William", "Michael"),

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# Version 7.13.9
+
+* Avoid `is.R()`.
+
 # Version 7.13.8
 
 * Fix CRAN note.

diff --git a/tests/testthat/test-6-analysis.R b/tests/testthat/test-6-analysis.R
@@ -119,14 +119,14 @@ test_with_dir("solitary codetools globals tests", {
   out <- drake_deps(quote(local(x <- 1, e)))$globals
   expect_equal(sort(out), sort(c("local", "e")))
   f <- function() {
-    if (is.R()) {
+    if (g()) {
       x
     } else {
       y
     }
   }
   out <- drake_deps(f)$globals
-  expect_equal(sort(out), sort(c("if", "is.R", "x", "y")))
+  expect_equal(sort(out), sort(c("if", "g", "x", "y")))
   f <- function() {
     if (FALSE) {
       x