From 1e066f05471e7d8d7a5cb5496d64f150a3292eab Mon Sep 17 00:00:00 2001 From: derpylz Date: Mon, 5 Jul 2021 18:29:39 +0200 Subject: [PATCH] Fix subsetLiger removing cell.data. --- R/rliger.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/rliger.R b/R/rliger.R index c6d2462b..5cb38804 100755 --- a/R/rliger.R +++ b/R/rliger.R @@ -6505,9 +6505,10 @@ subsetLiger <- function(object, clusters.use = NULL, cells.use = NULL, remove.mi a@clusters <- droplevels(a@clusters) a@tsne.coords <- object@tsne.coords[names(a@clusters), ] a@H.norm <- object@H.norm[names(a@clusters), ] + cell.names <- unname(unlist(lapply(a@raw.data, colnames))) # Add back additional cell.data if (ncol(a@cell.data) < ncol(object@cell.data)) { - a@cell.data <- droplevels(data.frame(object@cell.data[names(a@clusters), ])) + a@cell.data <- droplevels(data.frame(object@cell.data[cell.names, ])) } a@W <- object@W