improve check on r6 cloneable

mllg · Oct 18, 2017 · fdc4fd3 · fdc4fd3
1 parent f95875b
commit fdc4fd3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/checkR6.R b/R/checkR6.R
@@ -39,10 +39,10 @@ checkR6Props = function(x, cloneable = NULL, public = NULL, private = NULL) {
   if (!is.null(cloneable)) {
     qassert(cloneable, "B1")
     if (cloneable) {
-      if (is.null(x$clone))
+      if (!exists("clone", envir = x))
         return("Must be cloneable")
     } else {
-      if (!is.null(x$clone))
+      if (exists("clone", envir = x))
         return("May not be cloneable")
     }
   }