lianos / sparrow.shiny Goto Github PK

> db_single <- sparrow::GeneSetDb(
+     tibble::tribble(
+         ~collection, ~name,      ~feature_id, ~symbol,
+         "some_coll", "some_name", "some_id",   "some_symbol"
+     )
+ )
> 
> sparrow.shiny::SparrowResultContainer(db_single)
Warning in .local(x, ...) :
  Deactivating 1 gene sets because conformation of GeneSetDb to the target creates gene sets smaller than 2 or greater than Inf

Error in featureIds(geneSetDb(x), i, j, value = value, active.only = TRUE,  : 
  collection (i) must be length 1 character vectors

> db_multiple <- sparrow::GeneSetDb(
+   tibble::tribble(
+     ~collection,  ~name,       ~feature_id,   ~symbol,
+     "some_coll",  "_name",      "some_id",   "some_symbol",
+     "other_coll", "other_name", "other_id1", "other_symbol1",
+     "other_coll", "other_name", "other_id2", "other_symbol2"
+   )
+ )
>   
> sparrow.shiny::SparrowResultContainer(db_multiple)
Warning in .local(x, ...) :
  Deactivating 1 gene sets because conformation of GeneSetDb to the target creates gene sets smaller than 2 or greater than Inf

$mg
SparrowResult (max FDR by collection set to 0.20%)
--------------------------------------------------- 
No GSEA methods were run, only geneset level statistics calculated

$methods
character(0)

$choices
   collection      label                    value
1: other_coll other_name other_coll_::_other_name

attr(,"class")
[1] "SparrowResultContainer" "list"