Fix display messages
authorPaul Hoffman <phoffman@nygenome.org>
Wed, 13 Dec 2017 20:47:57 +0000 (15:47 -0500)
committerPaul Hoffman <phoffman@nygenome.org>
Wed, 13 Dec 2017 20:47:57 +0000 (15:47 -0500)
R/loom.R

index 8f9bd238a21f2d6ecdd1547df146f4ae24d9a75f..600394863c52cec90eab6294fbb5b54cb533fe71 100644 (file)
--- a/R/loom.R
+++ b/R/loom.R
@@ -1036,7 +1036,7 @@ subset.loom <- function(
   col.attrs <- list.datasets(object = x, path = 'col_attrs', full.names = TRUE)
   if (length(x = col.attrs) > 0) {
     if (display.progress) {
-      cat("\nAdding", length(x = col.attrs), "row attributes\n")
+      cat("\nAdding", length(x = col.attrs), "column attributes\n")
       pb <- new.pb()
       counter <- 0
     }
@@ -1056,7 +1056,7 @@ subset.loom <- function(
   layers <- list.datasets(object = x, path = 'layers', full.names = TRUE)
   if (length(x = layers) > 0) {
     if (display.progress) {
-      cat("\nAdding", length(x = layers), "row attributes\n")
+      cat("\nAdding", length(x = layers), "layers\n")
       pb <- new.pb()
       counter <- 0
     }