update apoptosis gene list

789da4f1 · Jean-Baptiste ALBERGE · ee92ee06 · 789da4f1
Commit 789da4f1 authored Jun 17, 2019 by Jean-Baptiste ALBERGE
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

config.R config.R +1 -1

No files found.
--- a/config.R
+++ b/config.R
@@ -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"))
  }