Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Bagueneau Mathias
Shiny SChnurR
Commits
789da4f1
Commit
789da4f1
authored
Jun 17, 2019
by
Jean-Baptiste ALBERGE
Browse files
update apoptosis gene list
parent
ee92ee06
Changes
1
Hide whitespace changes
Inline
Side-by-side
config.R
View file @
789da4f1
...
...
@@ -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"
))
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment