keep dimension when only 1 column left

nh3 · nh3 · commit 07c05b07afff · 2019-09-23T14:44:24.000Z
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
 }

Original file line number	Diff line number	Diff line change
`@@ -4,7 +4,8 @@`
`4`	`4`	`if (sum(k_singular) > 0)`
`5`	`5`	`warning(paste('Dropping single category variables:'),`
`6`	`6`	`paste(colnames(df)[k_singular], collapse=', '))`
`7`		`- df <- df[, !k_singular]`
	`7`	`+ df <- df[, !k_singular, drop=F]`
	`8`	`+ return(df)`
`8`	`9`	`}`
`9`	`10`
`10`	`11`	`seurat2anndata <- function(`
`@@ -52,7 +53,7 @@ seurat2anndata <- function(`
`52`	`53`	`)`
`53`	`54`
`54`	`55`	`if (!is.null(outFile))`
`55`		`- anndata$AnnData$write(adata, outFile, compression = 'gzip')`
	`56`	`+ adata$write(outFile, compression = 'gzip')`
`56`	`57`
`57`	`58`	`adata`
`58`	`59`	`}`