remove unnecessary as.character invocation

rstudio · Sep 30, 2024 · 1ebdc59 · 1ebdc59
1 parent 16c05d5
commit 1ebdc59
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/call.R b/R/call.R
@@ -66,10 +66,10 @@ renv_call_matches <- function(call, names, nargs = NULL) {
 
   ok <- FALSE
 
-  if (is.call(call) &&
-      is.symbol(sym <- call[[1L]]) &&
-      any(names == as.character(sym)))
-    ok <- is.null(nargs) || length(call) == nargs + 1L
+  if (is.call(call))
+    if (is.symbol(sym <- call[[1L]]))
+      if (any(names == sym))
+        ok <- is.null(nargs) || length(call) == nargs + 1L
 
   ok