Commit 7cbd6c2d authored by Thomas Schwarzl's avatar Thomas Schwarzl

simplified filtering options into one filter button

parent 3901dede
Pipeline #17359 failed with stage
in 57 seconds
......@@ -93,96 +93,95 @@ mytheme <- theme_minimal() + theme(text = element_text(size = 20),
colour = "black",
vjust = -1))
## --------- UI Elements
columnFilterButton <- dropdownButton(
#tags$h3("Select columns to display"),
tabsetPanel(type = "tabs",
tabPanel("Select columns",
column(8,
uiOutput("RBPTableColumnSelection")
),
column(4,
#tags$h4("Predefined Views"),
#actionBttn("btnOverview", "Overview", size="sm"),
#tags$br(),
#actionBttn("btnAnnotation", "Annotation", size="sm"),
#tags$br(),
#actionBttn("btnDetailed", "Detailed", size="sm"),
#tags$br(),
#tags$br(),
#tags$h4("Control all columns"),
actionBttn("btnSelectAll", "Select all", size="sm"),
tags$br(),
actionBttn("btnSelectNone", "Select none", size="sm"),
tags$br(),
actionBttn("btnSelectCurrent", "Select current organism", size="sm"),
)
)#,
#tabPanel("Order columns",
# uiOutput("RBPTablePosition")
#)
),
circle = TRUE, status = "danger", icon = icon("columns"), width = "750px",
tooltip = tooltipOptions(title = "Select and order columns")
)
rowFilterButton <- dropdownButton(
column(width = 12,
tags$h5("Row filter options:"),
materialSwitch(
inputId = "showRBPsonly",
label = "Show RBPs only",
value = TRUE,
right = TRUE
#class = "topswitch",
#,
#status = "primary"
),
materialSwitch(
inputId = "showSomatic",
label = "Somatic Disease Mutations",
#class = "topswitch",
value = FALSE,
right = TRUE
),
materialSwitch(
inputId = "showMendelian",
label = "Mendelian Disease Mutations",
#class = "topswitch",
value = FALSE,
right = TRUE
),
materialSwitch(
inputId = "showCOVID",
label = "SARS-CoV-2 PPI",
#class = "topswitch",
value = FALSE,
right = TRUE
#status = "primary"
),
materialSwitch(
inputId = "showInfection",
label = "RBPs virus infection",
#class = "topswitch",
value = FALSE,
right = TRUE
#status = "primary"
),
uiOutput("filterSwitch"),
tags$span("filtering options will be vastly expanded in near future releases",
class = "note")
filterButton <- dropdownButton(
tabsetPanel(type = "tabs",
tabPanel("Filter rows",
column(width = 12,
tags$br(),
materialSwitch(
inputId = "showRBPsonly",
label = "Show RBPs only",
value = TRUE,
right = TRUE
#class = "topswitch",
#,
#status = "primary"
),
materialSwitch(
inputId = "showSomatic",
label = "Somatic Disease Mutations (Hs)",
#class = "topswitch",
value = FALSE,
right = TRUE
),
materialSwitch(
inputId = "showMendelian",
label = "Mendelian Disease Mutations (Hs)",
#class = "topswitch",
value = FALSE,
right = TRUE
),
materialSwitch(
inputId = "showCOVID",
label = "SARS-CoV-2 PPI (Hs)",
#class = "topswitch",
value = FALSE,
right = TRUE
#status = "primary"
),
materialSwitch(
inputId = "showInfection",
label = "RBPs virus infection (Hs)",
#class = "topswitch",
value = FALSE,
right = TRUE
#status = "primary"
),
uiOutput("filterSwitch"),
tags$span("filtering options will be vastly expanded in near future releases",
class = "note")
),
),
tabPanel("Select columns",
column(8,
uiOutput("RBPTableColumnSelection")
),
column(4,
#tags$h4("Predefined Views"),
#actionBttn("btnOverview", "Overview", size="sm"),
#tags$br(),
#actionBttn("btnAnnotation", "Annotation", size="sm"),
#tags$br(),
#actionBttn("btnDetailed", "Detailed", size="sm"),
#tags$br(),
#tags$br(),
#tags$h4("Control all columns"),
actionBttn("btnSelectAll", "Select all", size="sm"),
tags$br(),
actionBttn("btnSelectNone", "Select none", size="sm"),
tags$br(),
actionBttn("btnSelectCurrent", "Select current organism", size="sm"),
)
),
tabPanel("Order columns",
tags$br(), tags$br(),
tags$div("Feature in preparation"),
tags$br(), tags$br()
#uiOutput("RBPTablePosition")
)
),
circle = TRUE,
status = "danger",
icon = icon("filter"),
right = F,
width = "300px",
tooltip = tooltipOptions(title = "Row filter")
width = "750px",
tooltip = tooltipOptions(title = "filter rows and columns")
)
# rowFilterButton <- dropdownButton(
......@@ -258,7 +257,7 @@ rowFilterButton <- dropdownButton(
downloadButton <- dropdownButton(
column(5, class = "downloadbox",
tags$span("Download selected table:"), tags$br(),
tags$span("Download selected, filtered table:"), tags$br(),
downloadLink("downloadRBPTableCSV", "comma separate file (.csv)"),tags$br(),
downloadLink("downloadRBPTableTSV", "tab delimited (.tsv)"), tags$br(),
downloadLink("downloadRBPTableXLSX", "excel with meta info (.xlsx)"), tags$br(),
......@@ -432,8 +431,7 @@ pageRBPTable <- fillRow(class = "RBPWindow",
#selectize = TRUE
)
),
rowFilterButton,
columnFilterButton,
filterButton,
downloadButton,
uiOutput("filterStatus", class = "filterStatus")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment