From 2070d6742f56682b5eac3e062eedd2871faebd92 Mon Sep 17 00:00:00 2001 From: Axel Klenk Date: Mon, 28 Oct 2024 19:03:31 +0100 Subject: [PATCH] add new arguments for GSVA missing values to Shiny app --- inst/shinyApp/argumentsDataModule.R | 4 ++-- inst/shinyApp/server.R | 4 +++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/inst/shinyApp/argumentsDataModule.R b/inst/shinyApp/argumentsDataModule.R index 40847aa..1c3dff0 100644 --- 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 index 7033087..79010fe 100644 --- 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