Commit 36e32ab7 authored by Thomas Schwarzl's avatar Thomas Schwarzl

added mendelian disease mutations switch

parent 90a4a2cd
......@@ -148,6 +148,13 @@ rowFilterButton <- dropdownButton(
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",
......@@ -560,6 +567,10 @@ server <- function(input, output, session) {
ret <- ret %>% filter(RBPANNO000000059.1)
}
if(input$showMendelian) {
ret <- ret %>% filter(RBPANNO000000063.1)
}
if(input$showRBPsonly) {
ret <- ret %>% filter(!!rlang::sym(paste0("any_", selectedOrganism())))
}
......@@ -1023,30 +1034,31 @@ server <- function(input, output, session) {
output$filterStatus <- renderUI({
switchStatus <- input$showSomatic * 1000 +
switchStatus <- input$showMendelian * 10000 +
input$showSomatic * 1000 +
input$showRBPsonly * 100 +
input$showCOVID * 10 +
input$showInfection * 1
message <- NA
n <- SelectedRBPTable() %>% nrow()
if(switchStatus == 100) {
if(switchStatus == 0100) {
message = "Only proteins with RIC records are shown."
} else if(switchStatus == 010) {
} else if(switchStatus == 0010) {
message = "Only SARS-CoV-2 interactor proteins are shown."
} else if(switchStatus == 001) {
} else if(switchStatus == 0001) {
message = "Only RBPs changing RNA-binding upon virus infection are shown."
} else if(switchStatus == 100) {
} else if(switchStatus == 0100) {
message = "Only SARS-CoV-2 interactor proteins are shown."
} else if(switchStatus == 000) {
} else if(switchStatus == 0000) {
message = "All genes are shown."
} else if(switchStatus == 110) {
} else if(switchStatus == 0110) {
message = "Only SARS-CoV-2 interactor proteins with RIC records are shown."
} else if(switchStatus == 011) {
} else if(switchStatus == 0011) {
message = "Only overlap of RBPs changing RNA-binding upon virus infection and SARS-CoV-2 interactor proteins are shown."
} else if(switchStatus == 101) {
} else if(switchStatus == 0101) {
message = "Only RBPs changing RNA-binding upon virus infection are shown."
} else if(switchStatus == 111) {
} else if(switchStatus == 0111) {
message = "Only overlap of RBPs changing RNA-binding upon virus infection and SARS-CoV-2 interactor proteins are shown."
} else if(switchStatus == 1000) {
message = "Only genes with somatic disease mutations are shown."
......@@ -1068,6 +1080,42 @@ server <- function(input, output, session) {
message = "RBPs with somatic disease mutations changing RNA-binding upon virus infection are shown."
} else if(switchStatus == 1111) {
message = "Overlap of RBPs with somatic disease mutations changing RNA-binding upon virus infection and SARS-CoV-2 interactor proteins are shown."
} else if(switchStatus == 10100) { ### Mendelian
message = "Only proteins with RIC records and mendelian disease mutations are shown."
} else if(switchStatus == 10010) {
message = "Only SARS-CoV-2 interactor proteins mendelian disease mutations are shown."
} else if(switchStatus == 10001) {
message = "Only RBPs mendelian disease mutations changing RNA-binding upon virus infection are shown."
} else if(switchStatus == 10100) {
message = "Only SARS-CoV-2 interactor proteins with mendelian disease mutations are shown."
} else if(switchStatus == 10110) {
message = "Only SARS-CoV-2 interactor proteins with RIC records and mendelian disease mutations are shown."
} else if(switchStatus == 10011) {
message = "Only overlap of RBPs with mendelian disease mutations changing RNA-binding upon virus infection and SARS-CoV-2 interactor proteins are shown."
} else if(switchStatus == 10101) {
message = "Only RBPs with mendelian disease mutations changing RNA-binding upon virus infection are shown."
} else if(switchStatus == 10111) {
message = "Only overlap of RBPs with mendelian disease mutations changing RNA-binding upon virus infection and SARS-CoV-2 interactor proteins are shown."
} else if(switchStatus == 11000) {
message = "Only genes with somatic and mendelian disease mutations are shown."
} else if(switchStatus == 11100) {
message = "Proteins with RIC records and somatic and mendelian disease mutations are shown."
} else if(switchStatus == 11010) {
message = "SARS-CoV-2 interactor proteins with somatic and mendelian disease mutations are shown."
} else if(switchStatus == 11001) {
message = "RBPs with somatic and mendelian disease mutations changing RNA-binding upon virus infection are shown."
} else if(switchStatus == 11100) {
message = "SARS-CoV-2 interactor proteins with somatic and mendelian disease mutations are shown."
} else if(switchStatus == 10000) {
message = "All genes with mendelian disease mutations are shown."
} else if(switchStatus == 11110) {
message = "SARS-CoV-2 interactor proteins with somatic and mendelian disease mutations and RIC records are shown."
} else if(switchStatus == 11011) {
message = "Overlap of RBPs with somatic and menedlian disease mutations changing RNA-binding upon virus infection and SARS-CoV-2 interactor proteins are shown."
} else if(switchStatus == 11101) {
message = "RBPs with somatic and mendelian disease mutations changing RNA-binding upon virus infection are shown."
} else if(switchStatus == 11111) {
message = "Overlap of RBPs with somatic and mendelian disease mutations changing RNA-binding upon virus infection and SARS-CoV-2 interactor proteins are shown."
} else {
stop("wrong switch values.")
}
......
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