/
ui.R
124 lines (101 loc) · 3.02 KB
/
ui.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
library(shiny)
library(shinyFiles)
library(gdata)
options(shiny.maxRequestSize=500*1024^2)
# Define UI for slider demo application
shinyUI(pageWithSidebar(
# Application title
headerPanel("SCPattern"),
# Sidebar with sliders that demonstrate various available options
sidebarPanel(width=9,
# file
fileInput("filename", label = "File input (support .csv, .txt, .tab)"),
# grouping vector
fileInput("ConditionVector", label = "Condition vector \n file name (support .csv, .txt, .tab)"),
column(3,
numericInput("iters",
label = "number of iterations",
value = 5),
# Normalization
radioButtons("test_buttons",
label = "test between",
choices = list("DE vs. EE (undirectional)" = 1,
"Up vs. Down vs. EE" = 2,
"Up vs. Down vs. EE vs. Both direction"=3,
"Up vs. Down"=4),
selected = 2),
radioButtons("RM_buttons",
label = "Ignore dropouts?",
choices = list("Ignore" = 1,
"Do not ignore" = 2),
selected = 2),
numericInput("Dropupper",
label = "The dropout is defined as values < =",
value = 0)
),
column(3,
# LOD
numericInput("LOD",
label = "Lower limit of detection (max value)",
value = 10),
radioButtons("Circular",
label = "Circular?",
choices = list("Yes" = 1,
"No" = 2),
selected = 2)#,
# Num permutation
#numericInput("PPcut",
#label = "PP cutoff",
# value = 0.5)
),
column(3,
# output dir
shinyDirButton('Outdir', 'output folder select', 'Please select a folder'),
# export normalzied matrix
textInput("exNormFileName",
label = "Export file name - normalized expression matrix",
value = "normalized"),
# export gene list
textInput("exListFileName",
label = "Export file name - DE gene list",
value = "genes"),
# export PP
textInput("exPVFileName",
label = "Export file name - PP matrix",
value = "PPs")
),
column(3,
radioButtons("Plot_buttons",
label = "Plot top genes?",
choices = list("Yes" = 1,
"No" = 2),
selected = 1),
radioButtons("Plot_type",
label = "Show 0s in plots?",
choices = list("Yes" = 1,
"No" = 2,
"In both way" = 3),
selected = 1),
radioButtons("log_whether",
label = "Plot in log scale?",
choices = list("No" = 1,
"log2(expression + 1)" = 2),
selected = 1),
# num genes to plot
textInput("PlotNum",
label = "Number of genes to plot (if not specified, top 100 genes will be plotted)",
value = ""),
# plot name
textInput("exPlotFileName",
label = "Export file name for the plots?",
value = "Plots")
),
actionButton("Submit","Submit for processing")
),
# Show a table summarizing the values entered
mainPanel(
h4(textOutput("print0")),
#tableOutput("values")
dataTableOutput("tab")
)
))