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

Add GTEx tissues dataset

Browse source
This commit is contained in:
Elias Projahn 2022-12-01 21:34:07 +01:00
parent 510fafeb6e
commit c14208c2b2
7 changed files with 49 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/data.R
View file

@ -4,6 +4,9 @@
#' The results from the analysis across all GTEx samples.
"gtex_all"
#' The results from the analysis across GTEx tissue aggregated data.
"gtex_tissues"
#' The results from the analysis across Human Protein Atlas' tissue aggregated
#' data.
"hpa_tissues"

4
R/server.R
View file

@ -2,7 +2,9 @@
#' @noRd
server <- function(input, output, session) {
dataset <- reactive({
analysis <- if (input$dataset == "hpa_tissues") {
analysis <- if (input$dataset == "gtex_tissues") {
ubigen::gtex_tissues
} else if (input$dataset == "hpa_tissues") {
ubigen::hpa_tissues
} else {
ubigen::gtex_all

5
R/ui.R
View file

@ -23,8 +23,9 @@ ui <- function() {
"dataset",
label = strong("Expression dataset"),
list(
"GTEx (all samples)" = "gtex_all",
"Human Protein Atlas (tissues)" = "hpa_tissues"
"GTEx (across tissues and conditions)" = "gtex_all",
"GTEx (across tissues)" = "gtex_tissues",
"Human Protein Atlas (across tissues)" = "hpa_tissues"
)
),
selectInput(