update apoptosis gene list

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"))
   }