add fallback options for too many input genes

Broccolito · Broccolito · commit 0725cd4a696a · 2026-04-22T10:57:22.000-07:00
diff --git a/R/run_tkoi.R b/R/run_tkoi.R
@@ -168,6 +168,7 @@ run_tkoi = function(
     substitute_genes = character(n_genes)
     for(i in seq_len(n_genes)){
       pool = setdiff(candidate_pools[[i]], substitute_genes)
+      if(length(pool) == 0L) pool = candidate_pools[[i]]  # fallback: allow reuse when pool exhausted by large seed sets
       substitute_genes[i] = sample(pool, 1)
     }
 

Original file line number	Diff line number	Diff line change
`@@ -168,6 +168,7 @@ run_tkoi = function(`
`168`	`168`	`substitute_genes = character(n_genes)`
`169`	`169`	`for(i in seq_len(n_genes)){`
`170`	`170`	`pool = setdiff(candidate_pools[[i]], substitute_genes)`
	`171`	`+ if(length(pool) == 0L) pool = candidate_pools[[i]] # fallback: allow reuse when pool exhausted by large seed sets`
`171`	`172`	`substitute_genes[i] = sample(pool, 1)`
`172`	`173`	`}`
`173`	`174`