From a4f31bab2b20d9376fb913903007724f6e0dfecb Mon Sep 17 00:00:00 2001 From: jade Date: Mon, 26 Feb 2024 17:00:04 +0800 Subject: [PATCH] fix inferCNV for issue #342 --- R/inferCNV.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/inferCNV.R b/R/inferCNV.R index 831451a..1d129ce 100755 --- a/R/inferCNV.R +++ b/R/inferCNV.R @@ -259,7 +259,7 @@ CreateInfercnvObject <- function(raw_counts_matrix, orig_ref_group_names = ref_group_names ref_group_names <- ref_group_names[ ref_group_names %in% unique(input_classifications[,1]) ] - if (! all.equal(ref_group_names, orig_ref_group_names)) { + if (! isTRUE(all.equal(ref_group_names, orig_ref_group_names))){ flog.warn(sprintf("-warning, at least one reference group has been removed due to cells lacking: %s", orig_ref_group_names[! orig_ref_group_names %in% ref_group_names ] )) }