Skip to content

Commit e2f07ef

Browse files
martabicamartabica
authored
Create UI.R
1 parent a14fc22 commit e2f07ef

1 file changed

Lines changed: 128 additions & 0 deletions

File tree

‎fea/tab_PSEUDO/UI.R‎

Lines changed: 128 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,128 @@
1+
2+
##-------------------------------------##
3+
## Pseudobulk TAB ##
4+
##-------------------------------------##
5+
6+
tab_PSEUDO <- tabItem(
7+
tabName = "Pseudobulk",
8+
textOutput(outputId = "session_id"),
9+
sidebarLayout(
10+
sidebarPanel(width = 4,
11+
12+
h3("Convert to pseudobulk:"),
13+
14+
selectInput(inputId = "select_matrix_pseudo",
15+
label = "Select matrix",
16+
choices = c("-"),
17+
multiple = FALSE,
18+
width = "100%"),
19+
selectInput(inputId = "select_group_pseudo",
20+
label = "Select groups",
21+
choices = c("-"),
22+
multiple = FALSE,
23+
width = "100%"),
24+
selectInput(inputId = "select_condition_pseudo",
25+
label = "Select condition",
26+
choices = c("-"),
27+
multiple = FALSE,
28+
width = "100%"),
29+
30+
h3("Select gene sets:"),
31+
selectInput(inputId = "gset_scores_organism_pseudo",
32+
label = "Organism:",
33+
choices = c("Homo sapiens",
34+
"Mus musculus",
35+
"Danio rerio",
36+
"Rattus norvegicus",
37+
"Macaca mulatta",
38+
"Drosophila melanogaster",
39+
"Caenorhabditis elegans",
40+
"Saccharomyces cerevisiae",
41+
"Anolis carolinensis",
42+
"Bos taurus",
43+
"Canis lupus familiaris",
44+
"Equus caballus",
45+
"Felis catus",
46+
"Gallus gallus",
47+
"Monodelphis domestica",
48+
"Ornithorhynchus anatinus",
49+
"Pan troglodytes",
50+
"Schizosaccharomyces pombe 972h-",
51+
"Sus scrofa",
52+
"Xenopus tropicalis"
53+
), multiple = FALSE, width = "100%"),
54+
55+
selectInput(inputId = "select_database_pseudo",
56+
label = "Pathways:",
57+
choices = c(#"Custom",
58+
"H",
59+
"C1",
60+
"CGP",
61+
"CP",
62+
"CP:BIOCARTA",
63+
"CP:KEGG_LEGACY",
64+
"CP:KEGG_MEDICUS",
65+
"CP:PID",
66+
"CP:REACTOME",
67+
"CP:WIKIPATHWAYS",
68+
"MIR:MIRDB",
69+
"MIR:MIR_Legacy",
70+
"TFT:GTRD",
71+
"TFT:TFT_Legacy",
72+
"3CA",
73+
"CGN",
74+
"CM",
75+
"GO:BP",
76+
"GO:CC",
77+
"GO:MF",
78+
"HPO",
79+
"C6",
80+
"IMMUNESIGDB",
81+
"VAX",
82+
"C8"),
83+
selected = "Custom"),
84+
85+
uiOutput("gset_pathway_pseudo"),
86+
87+
#uiOutput("gene_set_pseudo"),
88+
89+
h3("Select scoring method:"),
90+
91+
selectInput(inputId = "method_pseudobulk",
92+
label = "Method:",
93+
choices = c("logmedian",
94+
"ranking",
95+
"ssGSEA"),
96+
multiple = FALSE,
97+
selected = "ranking"),
98+
99+
actionButton(inputId = "calculate_pseudobulk",
100+
label = "Calculate")
101+
102+
103+
104+
), #close sidebarPanel
105+
106+
mainPanel(
107+
fluidRow(
108+
column(width = 10,
109+
box(withSpinner(
110+
plotOutput(outputId = "marker"),
111+
type = 5),
112+
width = NULL,
113+
height = "700px") #, height = 150
114+
) #close column
115+
), #close fluidrow
116+
fluidRow(
117+
column(width = 10,
118+
box(withSpinner(
119+
plotOutput(outputId = "marker_roc"),
120+
type = 5),
121+
width = NULL,
122+
height = "700px") #, height = 150
123+
) #close column
124+
) #close fluidrow
125+
) #close mainPanel
126+
) #close sidebarlayout
127+
) #close FEA
128+

0 commit comments

Comments
 (0)