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

Add rankings correlation plot

Browse source
This commit is contained in:
Elias Projahn 2022-08-14 18:04:40 +02:00
parent c78802425c
commit 4e31d4ef79
2 changed files with 101 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

54
R/ui.R
View file

@ -4,6 +4,14 @@
#'
#' @noRd
ui <- function(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")
div(
custom_css(),
shinyjs::useShinyjs(),
@ -46,7 +54,7 @@ ui <- function(options) {
)
),
tabPanel(
title = "Methods & Distribution",
title = "Method comparison",
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
@ -56,6 +64,50 @@ ui <- function(options) {
)
)
),
tabPanel(
title = "Method correlation",
div(
style = "margin-top: 16px",
div(
class = "flow-layout",
selectInput(
"ranking_y",
label = NULL,
choices = ranking_choices
),
span(
style = paste0(
"display: inline-block;",
"margin-right: 12px;",
"padding: 0.375rem 0.75rem;"
),
"~"
),
selectInput(
"ranking_x",
label = NULL,
choices = ranking_choices,
selected = "combined"
),
div(
style = paste0(
"display: inline-block;",
"padding: 0.375rem 0.75rem;"
),
checkboxInput(
"use_ranks",
"Use ranks instead of scores",
value = TRUE
)
)
),
plotly::plotlyOutput(
"ranking_correlation_plot",
width = "100%",
height = "600px"
)
)
),
tabPanel(
title = "Comparison",
div(