Use %chin%

Rdatatable · Dec 14, 2023 · d701e9c · d701e9c
1 parent 402ca84
commit d701e9c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/cedta.R b/R/cedta.R
@@ -28,7 +28,7 @@ cedta.pkgEvalsUserCode = c("gWidgetsWWW","statET","FastRWeb","slidify","rmarkdow
   # likelier to be close to the end of the call stack, right?
   for (ii in length(calls):1) { # rev(seq_len(length(calls)))? See https://bugs.r-project.org/show_bug.cgi?id=18406.
     the_call <- calls[[ii]][[1L]]
-    if (is.name(the_call) && (the_call == "eval" || the_call == "evalq")) return(TRUE)
+    if (is.name(the_call) && (the_call %chin% c("eval", "evalq"))) return(TRUE)
   }
   return(FALSE)
 }