Merge pull request #216 from rcastelo/215-extend-the-gsva-shiny-app-t…

…o-make-use-of-its-new-missing-data-policy add new arguments for GSVA missing values to Shiny app
rcastelo · Oct 28, 2024 · 2ea8113 · 2ea8113
2 parents 178f15b + 2070d67
commit 2ea8113
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/inst/shinyApp/argumentsDataModule.R b/inst/shinyApp/argumentsDataModule.R
@@ -46,8 +46,8 @@ argumentsDataServer <- function(id){
             toggleElement("ssgseaNorm", condition = input$method %in% "ssgsea")
             toggleElement("mxDiff", condition = input$method %in% "gsva")
             toggleElement("tau", condition = input$method %in% c("gsva", "ssgsea"))
-            toggleElement("checkNA", condition = input$method %in% "ssgsea")
-            toggleElement("use", condition = input$method %in% "ssgsea")
+            toggleElement("checkNA", condition = input$method %in% c("gsva", "ssgsea"))
+            toggleElement("use", condition = input$method %in% c("gsva", "ssgsea"))
 
             if(input$method == "gsva"){
                 updateNumericInput(inputId = "tau", value = 1)

diff --git a/inst/shinyApp/server.R b/inst/shinyApp/server.R
@@ -88,7 +88,9 @@ function(input, output, session) {
                           kcdf=isolate(argInp[["kcdf"]]()),
                           tau=isolate(argInp[["selectedTau"]]()),
                           maxDiff=isolate(argInp[["mxDiff"]]()),
-                          absRanking=isolate(argInp[["absRanking"]]())))
+                          absRanking=isolate(argInp[["absRanking"]]()),
+                          checkNA=isolate(argInp[["checkNA"]]()),
+                          use=isolate(argInp[["use"]]())))
       result <- gsva(param=param, verbose=TRUE)
       sink()
       ## when gsva() ends, we reset the console text file to empty