Finish layer adding
authorPaul Hoffman <phoffman@nygenome.org>
Tue, 31 Oct 2017 22:24:26 +0000 (18:24 -0400)
committerPaul Hoffman <phoffman@nygenome.org>
Tue, 31 Oct 2017 22:24:26 +0000 (18:24 -0400)
R/loom.R

index b16a284ebf8c8e453c81ba56c764a8cfa937afe1..9837a4ee05a78c249264a92ec9586e951ef253f5 100644 (file)
--- a/R/loom.R
+++ b/R/loom.R
@@ -125,6 +125,11 @@ loom <- R6Class(
             ))
           }
         }
+        if (do.transpose) {
+          self[['layers', names(x = layers)[i]]] <- t(x = layers[[i]])
+        } else {
+          self[['layers', names(x = layers)[i]]] <- layers[[i]]
+        }
       }
       self$flush()
       private$load_layers()