From e0b321f596404e9209f719d9aea2d492ebec9568 Mon Sep 17 00:00:00 2001 From: bburns632 Date: Fri, 3 May 2024 11:18:32 -0500 Subject: [PATCH] revert function reporter refactor as it fails tests --- R/FunctionReporter.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/FunctionReporter.R b/R/FunctionReporter.R index c1db096..3303646 100644 --- 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