Fix graph validation in validateLoom
authorPaul Hoffman <phoffman@nygenome.org>
Mon, 26 Mar 2018 22:07:12 +0000 (18:07 -0400)
committerPaul Hoffman <phoffman@nygenome.org>
Mon, 26 Mar 2018 22:07:12 +0000 (18:07 -0400)
R/internal.R

index c7ad580c88678c201823c04303fd0a25543159fe..c5aa18df47144ed2c6ed08ea9d67ec57e4afff5e 100644 (file)
@@ -189,7 +189,7 @@ validateLoom <- function(object) {
           return(object[[dset]]$dims)
         }
       )
-      if (unique(x = length(x = graph.lengths)) != 1) {
+      if (length(x = unique(x = graph.lengths)) != 1) {
         stop("All graph datasets must be the same length")
       }
     }