Merge pull request #1 from chenyenchung/Patch_TransferData

Make sure refdata in TransferData() is sparse
satijalab · May 30, 2019 · fa0b01e · fa0b01e
2 parents fff6898 + 414b022
commit fa0b01e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/integration.R b/R/integration.R
@@ -920,6 +920,9 @@ TransferData <- function(
     if (!slot %in% c("counts", "data")) {
       stop("Please specify slot as either 'counts' or 'data'.")
     }
+    if (inherits(x = refdata, what = "matrix")) {
+      refdata <- as(object = refdata, Class = "dgCMatrix")
+    }
     label.transfer <- FALSE
   } else {
     stop(paste0("Please provide either a vector (character or factor) for label transfer or a matrix",