Debug exir function.

asalavaty · Nov 9, 2023 · 9c08d3a · 9c08d3a
1 parent e6493bc
commit 9c08d3a
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/R/functions.R b/R/functions.R
@@ -2407,7 +2407,11 @@ sirir <- function(graph, vertices = V(graph),
         rf.diff.exptl.pvalue <- base::subset(rf.diff.exptl.pvalue, rf.diff.exptl.pvalue$pvalue < alpha)
 
       } else {
-        rf.pval.select <- which(rf.diff.exptl.pvalue[,"pvalue"] <alpha)
+        if(length(which(rf.diff.exptl.pvalue[, "pvalue"] < alpha)) >= 10) {
+          rf.pval.select <- which(rf.diff.exptl.pvalue[, "pvalue"] < alpha)
+        } else {
+          rf.pval.select <- which(order(rf.diff.exptl.pvalue[, "pvalue"]) <= 10)
+        }
         rf.nonSig <- seq(nrow(rf.diff.exptl.pvalue))[-rf.pval.select]
         required.pos.importance <- select.number - length(rf.pval.select)
 

diff --git a/inst/ShinyApps/ExIR/app.R b/inst/ShinyApps/ExIR/app.R
@@ -2328,7 +2328,11 @@ server <- function(input, output, session,
             rf.diff.exptl.pvalue <- base::subset(rf.diff.exptl.pvalue, rf.diff.exptl.pvalue$pvalue < alpha)
 
         } else {
-            rf.pval.select <- which(rf.diff.exptl.pvalue[,"pvalue"] <alpha)
+          if(length(which(rf.diff.exptl.pvalue[, "pvalue"] < alpha)) >= 10) {
+            rf.pval.select <- which(rf.diff.exptl.pvalue[, "pvalue"] < alpha)
+          } else {
+            rf.pval.select <- which(order(rf.diff.exptl.pvalue[, "pvalue"]) <= 10)
+          }
             rf.nonSig <- seq(nrow(rf.diff.exptl.pvalue))[-rf.pval.select]
             required.pos.importance <- select.number - length(rf.pval.select)