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

3
R/ui.R
View file

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