User interface and style improvements

This commit is contained in:
Elias Projahn 2022-08-18 12:21:00 +02:00
parent 447fdfab4f
commit 6938cb0d84
7 changed files with 62 additions and 44 deletions

View file

@ -2,18 +2,22 @@
filters_ui <- function(id) {
div(
class = "well",
style = "margin-top: 24px; margin-bottom: 16px; padding-top: 24px;",
style = "margin-top: 24px; margin-bottom: 16px;",
verticalLayout(
radioButtons(
NS(id, "method"),
label = NULL,
choices = list(
"Filter percentiles" = "percentile",
"Filter scores" = "score",
"Filter ranks" = "rank",
"No filtering" = "none"
),
inline = TRUE
h5("Filter criteria"),
div(
style = "margin-top: 8px;",
radioButtons(
NS(id, "method"),
label = NULL,
choices = list(
"Filter percentiles" = "percentile",
"Filter scores" = "score",
"Filter ranks" = "rank",
"No filtering" = "none"
),
inline = TRUE
)
),
tabsetPanel(
id = NS(id, "sliders"),