attempt fix for r cmd check in debian

eblondel · Dec 17, 2018 · e3182b0 · e3182b0
1 parent b4d6373
commit e3182b0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/ISOAbstractObject.R b/R/ISOAbstractObject.R
@@ -232,7 +232,7 @@ ISOAbstractObject <- R6Class("ISOAbstractObject",
 
       #fields
       fields <- fields[!sapply(fields, function(x){
-        (class(self[[x]]) %in% c("environment", "function")) ||
+        (class(self[[x]])[1] %in% c("environment", "function")) ||
         (x %in% private$system_fields)
       })]
 
@@ -521,7 +521,7 @@ ISOAbstractObject <- R6Class("ISOAbstractObject",
 
       #fields
       fields <- fields[!sapply(fields, function(x){
-        (class(self[[x]]) %in% c("environment", "function")) ||
+        (class(self[[x]])[1] %in% c("environment", "function")) ||
         (x %in% private$system_fields)
       })]
 
@@ -844,7 +844,7 @@ ISOAbstractObject <- R6Class("ISOAbstractObject",
         #list of fields
         fields <- rev(names(self))
         fields <- fields[!sapply(fields, function(x){
-          (class(self[[x]]) %in% c("environment", "function")) ||
+          (class(self[[x]])[1] %in% c("environment", "function")) ||
             (x %in% private$system_fields)
         })]