johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 19:27:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

results: Adapt to preset methods

Browse source
This commit is contained in:
Elias Projahn 2022-08-17 18:03:52 +02:00
parent bb15771f22
commit d325486d95
1 changed files with 31 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

43
R/results.R
View file

@ -7,14 +7,6 @@
#'
#' @noRd
results_ui <- function(id, options) {
ranking_choices <- purrr::lmap(geposan::all_methods(), function(method) {
l <- list()
l[[method[[1]]$name]] <- method[[1]]$id
l
})
ranking_choices <- c(ranking_choices, "Combined" = "combined")
sidebarLayout(
sidebarPanel(
width = 3,
@ -56,7 +48,9 @@ results_ui <- function(id, options) {
selectInput(
NS(id, "ranking_y"),
label = NULL,
choices = ranking_choices
choices = list(
"Combined" = "combined"
)
),
span(
style = paste0(
@ -69,8 +63,9 @@ results_ui <- function(id, options) {
selectInput(
NS(id, "ranking_x"),
label = NULL,
choices = ranking_choices,
selected = "combined"
choices = list(
"Combined" = "combined"
)
),
div(
style = paste0(
@ -251,6 +246,30 @@ results_server <- function(id, options, analysis) {
geposan::plot_rankings(rankings, gene_sets)
})
observe({
ranking_choices <- c(
purrr::lmap(preset()$methods, function(method) {
l <- list()
l[[method[[1]]$name]] <- method[[1]]$id
l
}),
"Combined" = "combined"
)
updateSelectInput(
session,
"ranking_y",
choices = ranking_choices
)
updateSelectInput(
session,
"ranking_x",
choices = ranking_choices,
selected = "combined"
)
}) |> bindEvent(preset())
output$ranking_correlation_plot <- plotly::renderPlotly({
preset <- preset()
ranking <- ranking()
@ -281,7 +300,7 @@ results_server <- function(id, options, analysis) {
)
}
method_names <- geposan::all_methods() |> purrr::lmap(function(method) {
method_names <- preset$methods |> purrr::lmap(function(method) {
l <- list()
l[[method[[1]]$id]] <- method[[1]]$name
l