From e3182b09b5786db2b77d79e2cea57b73a611f7e1 Mon Sep 17 00:00:00 2001 From: eblondel Date: Mon, 17 Dec 2018 21:14:18 +0100 Subject: [PATCH] attempt fix for r cmd check in debian --- R/ISOAbstractObject.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/ISOAbstractObject.R b/R/ISOAbstractObject.R index feede782..e01c9a82 100644 --- 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) })]