revert function reporter refactor as it fails tests

uptake · May 3, 2024 · e0b321f · e0b321f
1 parent 52722dd
commit e0b321f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/FunctionReporter.R b/R/FunctionReporter.R
@@ -663,7 +663,7 @@ FunctionReporter <- R6::R6Class(
             # Check if expression x is from _$_
             if (identical(xList[[1]], quote(`$`))) {
                 # Check if expression x is of form self$foo, private$foo, or super$foo
-                if (xList[[2]] %in% c(quote(self), quote(private), quote(super))) {
+                if (identical(xList[[2]], quote(self)) || identical(xList[[2]], quote(private)) || identical(xList[[2]], quote(super))) {
                     # We want to keep those together because they could refer to the class'
                     # methods. So expression is not listable
                     listable <- FALSE