Commit 789da4f1 authored by Jean-Baptiste ALBERGE's avatar Jean-Baptiste ALBERGE
Browse files

update apoptosis gene list

parent ee92ee06
......@@ -86,7 +86,7 @@ PresetsListgenesGrid <- function(shiny_session, input.presets) {
if (input.presets == "plasmacells") {
updateSelectizeInput(shiny_session, "genes_list_grid", selected=c("IRF4","XBP1","PRDM1","IGKC","IGLC2","IGLC3","IGHM","IGHG1","IGHG2","IGHG3","IGHG4", "IGHA1","IGHE","IGHD","SDC1","CD38","CD19","MS4A1","SLAMF7","TNFRSF17","NCAM1"))
} else if (input.presets == "apoptosis") {
updateSelectizeInput(shiny_session, "genes_list_grid", selected=c("MCL1","BCL2","BCL2L1","BAK","BAX","BCL2L11","BBC3"))
updateSelectizeInput(shiny_session, "genes_list_grid", selected=c("MCL1","BCL2","BCL2L1","BAK","BAX","BCL2L11","BBC3", "PMAIP1"))
} else if (input.presets == "immuno") {
updateSelectizeInput(shiny_session, "genes_list_grid", selected=c("CD3D","CD8A","CD4","NCAM1","FCGR3A","CD14","HLA-DRA","ITGAX","ITGAM","CD79A","CD19","MS4A1","SDC1","IRF8","IL3RA","FCER1A","HBA1"))
}
......
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