From 19306a631f6bb7568e99dbe521e148d059402e7d Mon Sep 17 00:00:00 2001 From: enblacar Date: Tue, 6 Feb 2024 15:21:35 +0100 Subject: [PATCH] Fixing CI 7 - Pt.2 of: Flexibility in the use of slot or layer parameter in Seurat::GetAssayData(). This should avoid warnings in tests. --- R/do_DotPlot.R | 2 +- R/do_GroupwiseDEPlot.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/do_DotPlot.R b/R/do_DotPlot.R index 1d003a4..7f57518 100644 --- a/R/do_DotPlot.R +++ b/R/do_DotPlot.R @@ -194,7 +194,7 @@ do_DotPlot <- function(sample, } # Workaround parameter depreciation. - if (utils::packageVersion("Seurat" < "4.9.9")){ + if (base::isTRUE(utils::packageVersion("Seurat") < "4.9.9")){ data <- Seurat::GetAssayData(object = sample, assay = assay, slot = slot) diff --git a/R/do_GroupwiseDEPlot.R b/R/do_GroupwiseDEPlot.R index e93ae2e..fb6f206 100644 --- a/R/do_GroupwiseDEPlot.R +++ b/R/do_GroupwiseDEPlot.R @@ -223,7 +223,7 @@ do_GroupwiseDEPlot <- function(sample, dplyr::select(-dplyr::all_of(c(specificity))) # Workaround parameter deprecation. - if (utils::packageVersion("Seurat" < "4.9.9")){ + if (base::isTRUE(utils::packageVersion("Seurat") < "4.9.9")){ data <- Seurat::GetAssayData(object = sample, assay = assay, slot = slot)