fix bug in create when checking chunk.dims length
authorChristophH <ch1421@nyu.edu>
Tue, 9 Jan 2018 12:43:09 +0000 (13:43 +0100)
committerGitHub <noreply@github.com>
Tue, 9 Jan 2018 12:43:09 +0000 (13:43 +0100)
R/loom.R

index 29470ef3b5d4e7e0434f234a2a9d88927b467d9f..fff8e2e2c0fa737807d0a2a77891f1717bcadc1d 100644 (file)
--- a/R/loom.R
+++ b/R/loom.R
@@ -745,7 +745,7 @@ create <- function(
   }
   if (length(x = chunk.dims) > 2 || length(x = chunk.dims) < 1) {
     stop("'chunk.dims' must be a one- or two-length integer vector or 'auto'")
-  } else if (length(x = chunk.dims == 1)) {
+  } else if (length(x = chunk.dims) == 1) {
     if (!grepl(pattern = '^auto$', x = chunk.dims, perl = TRUE)) {
       chunk.dims <- rep.int(x = as.integer(x = chunk.dims), times = 2)
     }