Avoid is.R()

wlandau-lilly · wlandau-lilly · commit bf399e84b579 · 2024-03-04T09:27:19.000-05:00
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

Original file line number	Diff line number	Diff line change
`@@ -119,14 +119,14 @@ test_with_dir("solitary codetools globals tests", {`
`119`	`119`	`out <- drake_deps(quote(local(x <- 1, e)))$globals`
`120`	`120`	`expect_equal(sort(out), sort(c("local", "e")))`
`121`	`121`	`f <- function() {`
`122`		`- if (is.R()) {`
	`122`	`+ if (g()) {`
`123`	`123`	`x`
`124`	`124`	`} else {`
`125`	`125`	`y`
`126`	`126`	`}`
`127`	`127`	`}`
`128`	`128`	`out <- drake_deps(f)$globals`
`129`		`- expect_equal(sort(out), sort(c("if", "is.R", "x", "y")))`
	`129`	`+ expect_equal(sort(out), sort(c("if", "g", "x", "y")))`
`130`	`130`	`f <- function() {`
`131`	`131`	`if (FALSE) {`
`132`	`132`	`x`