Use inherits() instead of if(class(x)==y)

jonmcalder · Jul 19, 2022 · 4441945 · 4441945
1 parent cd95e05
commit 4441945
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/server.R b/R/server.R
@@ -331,7 +331,7 @@ argsForServerFunc <- function(serverFunc, session) {
 getEffectiveBody <- function(func) {
   if (is.null(func))
     NULL
-  else if (isS4(func) && class(func) == "functionWithTrace")
+  else if (isS4(func) && inherits(func, "functionWithTrace"))
     body(func@original)
   else
     body(func)