Untracked: fix warnings [revdep skip]

Displayr · Apr 26, 2022 · 80808a7 · 80808a7
1 parent 81c9ea3
commit 80808a7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -10,6 +10,7 @@ License: GPL-3
 LazyData: TRUE
 Suggests: testthat,
  flipExampleData
+Depends: R (>= 2.10)
 Imports: rpart,
  partykit,
  flipData (>= 1.1.3),

diff --git a/R/cart.R b/R/cart.R
@@ -86,7 +86,7 @@ CART <- function(formula,
     subset <- eval(substitute(subset), data, parent.frame())
     if (!is.null(subset))
     {
-        if (is.null(subset.description) | (class(subset.description) == "try-error") | !is.null(attr(subset, "name")))
+        if (is.null(subset.description) || inherits(subset.description, "try-error") || !is.null(attr(subset, "name")))
             subset.description <- Labels(subset)
         if (is.null(attr(subset, "name")))
             attr(subset, "name") <- subset.description