update

Author: multitalk

DESCRIPTION

@@ -13,7 +13,8 @@ RoxygenNote: 6.1.1
 Imports: 
     Seurat (>= 3.0.0),
     stats,
-    data.table
+    data.table,
+    Matrix
 Suggests: 
     knitr,
     rmarkdown,

NAMESPACE

@@ -2,6 +2,7 @@
 
 export(findmarkergenes)
 export(scCATCH)
+import(Matrix)
 import(Seurat)
 import(data.table)
 import(stats)

R/findmarkergenes.R

@@ -176,7 +176,7 @@
 #' @details Renal Cell Carcinoma: Kidney.
 #' @details Supratentorial Primitive Neuroectodermal Tumor: Brain.
 #' @seealso \url{https://github.com/ZJUFanLab/scCATCH}
-#' @import Seurat stats
+#' @import Seurat stats Matrix
 #' @export findmarkergenes
 
 findmarkergenes <- function(object, species = NULL, cluster = "All", match_CellMatch = FALSE, cancer = NULL, 
@@ -226,7 +226,7 @@ findmarkergenes <- function(object, species = NULL, cluster = "All", match_CellM
     genedata1 <- as.data.frame(table(genedata$new_name), stringsAsFactors = F)
     genedata1 <- genedata1[genedata1$Freq == 1, ]
     genedata <- genedata[genedata$new_name %in% genedata1$Var1, ]
-    ndata <- ndata[genedata$raw_name, , drop=FALSE ]
+    ndata <- ndata[genedata$raw_name,]
     rownames(ndata) <- genedata$new_name
     cat('\n')
     cat("Note: the new data matrix includes", ncol(ndata), "cells and", nrow(ndata), "genes.", "\n")