From 41d2426ea9f6eddcc943d20a37192834189caa34 Mon Sep 17 00:00:00 2001 From: Wang JL Date: Wed, 18 May 2022 15:26:29 +0800 Subject: [PATCH] Update preprocessing.R --- R/preprocessing.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/preprocessing.R b/R/preprocessing.R index 4f6765faa..102d50450 100644 --- a/R/preprocessing.R +++ b/R/preprocessing.R @@ -2637,7 +2637,7 @@ ScaleData.default <- function( if (any(vars.to.regress %in% rownames(x = object))) { latent.data <- cbind( latent.data, - t(x = object[vars.to.regress[vars.to.regress %in% rownames(x = object)], ]) + t(x = object[vars.to.regress[vars.to.regress %in% rownames(x = object)], , drop=F]) ) } # Currently, RegressOutMatrix will do nothing if latent.data = NULL