Avoid warnings in test-from_Seurat

Author: lazappi

tests/testthat/test-from_Seurat.R

@@ -1,6 +1,8 @@
 skip_if_not_installed("Seurat")
 library(Seurat)
 
+`%||%` <- rlang::`%||%`
+
 known_issues <- read_known_issues()
 
 counts <- matrix(rbinom(20000, 1000, .001), nrow = 100)
@@ -197,8 +199,16 @@ test_that("as_AnnData (Seurat) works with list mappings", {
       obsm_mapping = as.list(.from_Seurat_guess_obsms(obj, active_assay)),
       varm_mapping = as.list(.from_Seurat_guess_varms(obj, active_assay)),
       obsp_mapping = as.list(.from_Seurat_guess_obsps(obj, active_assay)),
-      varp_mapping = as.list(.from_Seurat_guess_varps(obj)),
-      uns_mapping = as.list(.from_Seurat_guess_uns(obj))
+      varp_mapping = if (length(as.list(.from_Seurat_guess_varps(obj))) > 0) {
+        as.list(.from_Seurat_guess_varps(obj))
+      } else {
+        FALSE
+      },
+      uns_mapping = if (length(as.list(.from_Seurat_guess_uns(obj))) > 0) {
+        as.list(.from_Seurat_guess_uns(obj))
+      } else {
+        FALSE
+      }
     )
   )
 })
@@ -214,8 +224,8 @@ test_that("as_AnnData (Seurat) works with unnamed mappings", {
       obsm_mapping = unname(.from_Seurat_guess_obsms(obj, active_assay)),
       varm_mapping = unname(.from_Seurat_guess_varms(obj, active_assay)),
       obsp_mapping = unname(.from_Seurat_guess_obsps(obj, active_assay)),
-      varp_mapping = unname(.from_Seurat_guess_varps(obj)),
-      uns_mapping = unname(.from_Seurat_guess_uns(obj))
+      varp_mapping = unname(.from_Seurat_guess_varps(obj)) %||% FALSE,
+      uns_mapping = unname(.from_Seurat_guess_uns(obj)) %||% FALSE
     )
   )
 })