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

Remove all data page

Browse source
This commit is contained in:
Elias Projahn 2022-05-12 12:16:48 +02:00
parent 06de28a92b
commit 36417f86a7
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/server.R
View file

@ -1,7 +1,7 @@
#' Server implementing the main user interface.
#' @noRd
server <- function(input, output) {
output$ranked_data <- DT::renderDataTable({
ranked_data <- reactive({
total_weight <- abs(input$above_median) +
abs(input$mean_expression) +
abs(input$sd_expression)
@ -17,10 +17,10 @@ server <- function(input, output) {
data.table::setorder(data, -score)
data[, rank := .I]
genes_table(data)
data
})
output$all_data <- DT::renderDataTable(genes_table(ubigen::genes))
output$ranked_data <- DT::renderDataTable(genes_table(ranked_data()))
}
#' Create a displayable data table from the gene results data.

3
R/ui.R
View file

@ -46,8 +46,7 @@ ui <- function() {
)
),
tabPanel(
title = "Data",
DT::dataTableOutput("all_data")
title = "Help"
),
tabPanel(
title = "Publication"