Fixing CI 7 - Pt.2 of: Flexibility in the use of slot or layer parame…

…ter in Seurat::GetAssayData(). This should avoid warnings in tests.
enblacar · Feb 6, 2024 · 19306a6 · 19306a6
1 parent cac8258
commit 19306a6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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)