Minor usability fix
authorPaul Hoffman <hoff0792@umn.edu>
Fri, 23 Feb 2018 23:49:39 +0000 (18:49 -0500)
committerPaul Hoffman <hoff0792@umn.edu>
Fri, 23 Feb 2018 23:49:39 +0000 (18:49 -0500)
R/internal.R

index 4f590f7f3daf245f44051b1dcef20250f25668df..e49d05d752de50c6c6ba61dd8b6557b9a727fc7e 100644 (file)
@@ -86,6 +86,7 @@ validateLoom <- function(object) {
         }
         root.groups <- list.groups(object = object, path = '/', recursive = FALSE)
       } else {
+        object$close_all()
         stop(reopen.msg)
       }
     } else {