From bf399e84b579e773d0d068a54c8bfd409d3b397d Mon Sep 17 00:00:00 2001
From: wlandau-lilly <will.landau@lilly.com>
Date: Mon, 4 Mar 2024 09:27:19 -0500
Subject: [PATCH] Avoid is.R()

---
 DESCRIPTION                      | 2 +-
 NEWS.md                          | 4 ++++
 tests/testthat/test-6-analysis.R | 4 ++--
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 53f26b978..bbe060ae6 100644
--- 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
index 02dec0bb2..29fd7cae8 100644
--- 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
index 3e2952031..37d52a267 100644
--- 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