Fix printing of members that are R6 objects. Closes #88

r-lib · Jul 1, 2016 · a567e86 · a567e86
1 parent c8f917c
commit a567e86
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/print.R b/R/print.R
@@ -106,7 +106,8 @@ object_summaries <- function(x, exclude = NULL) {
     } else {
       obj <- .subset2(x, name)
       if (is.function(obj)) deparse(args(obj))[[1L]]
-      else if (is.environment(obj)) "environment"
+      # Plain environments (not envs with classes, like R6 or RefClass objects)
+      else if (is.environment(obj) && identical(class(obj), "environment")) "environment"
       else if (is.null(obj)) "NULL"
       else if (is.atomic(obj)) trim(paste(as.character(obj), collapse = " "))
       else paste(class(obj), collapse = ", ")