mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
User interface and style improvements
This commit is contained in:
parent
447fdfab4f
commit
6938cb0d84
7 changed files with 62 additions and 44 deletions
26
R/filters.R
26
R/filters.R
|
|
@ -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"),
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue