keep dimension when only 1 column left

cellgeni · Sep 23, 2019 · 07c05b0 · 07c05b0
1 parent 718bc14
commit 07c05b0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/functions.R b/R/functions.R
@@ -4,7 +4,8 @@
     if (sum(k_singular) > 0)
         warning(paste('Dropping single category variables:'),
                 paste(colnames(df)[k_singular], collapse=', '))
-    df <- df[, !k_singular]
+        df <- df[, !k_singular, drop=F]
+    return(df)
 }
 
 seurat2anndata <- function(
@@ -52,7 +53,7 @@ seurat2anndata <- function(
     )
 
     if (!is.null(outFile))
-        anndata$AnnData$write(adata, outFile, compression = 'gzip')
+        adata$write(outFile, compression = 'gzip')
 
     adata
 }