-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathui.R
179 lines (172 loc) · 10.2 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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
library(shiny)
shinyUI(navbarPage(
"MSCCP",
tabPanel("Usage",
fluidPage(
titlePanel(
"Online shiny apps for quantitative analysis of Short Chain Chlorinated Paraffins (SCCPs)"
),
h3('Step 0'),
h4('Prepare standards with known %Cl.'),
h3('Step 1'),
h4('Covert you GC-HRMS data into mzxml format by',a('MsConverter', href ='http://proteowizard.sourceforge.net/tools.shtml')),
h3('Step 2'),
h4('Upload standards data in "Standards analysis" tab, set the parameters for internal standards and retention time range, clike "Go" to process the data. Record the intercept and slope of the model.'),
h3('Step 3'),
h4('Upload Samples data in "Sample analysis" tab, set the parameters for intercept and slope from the standards, internal standards and retention time range, clike "Go" to process the data.'),
h3('Step 4'),
h4('The concertration and compositon of your samples would be shown.'),
h3('Tips'),
h4('"Ions for analysis" show the ions used for this analysis in case you use other HRMS to analysis SCCPs.'),
h5('The source code could be found ',a('here', href='https://github.com/yufree/MSCCP'), ' and you could download them and open "msccp.Rproj" with ', a('RStudio',href='https://www.rstudio.com/'),'. Then open either "ui.R" or "server.R" and punch "Run App" to use this app locally.')
)),
tabPanel(
"Standards analysis",
fluidPage(
titlePanel("Analysis for SCCPs standards"),
sidebarPanel(
h4('Uploading Standards File'),
fileInput('Standards',
label = 'mzxml files',
multiple = T,
accept = c('.mzxml')),
sliderInput(
'ISmz',
'm/z',
min = 200,
max = 600,
value = 323,
step = 0.01,
round = 3
),
sliderInput(
'ISrt',
'Retention Time range for IS',
min = 0,
max = 6000,
value = c(600,1200),
step = 50,
round = 0
),
sliderInput(
'SCCPrt',
'Retention Time range for SCCPs',
min = 0,
max = 6000,
value = c(600,1200),
step = 50,
round = 0
),
sliderInput(
'ppm',
'ppm',
min = 1,
max = 100,
value = 5,
step = 1,
round = 0
),
sliderInput(
'con',
'Concertration in ppm',
min = 10,
max = 10000,
value = 2000,
step = 10,
round = 0
),
actionButton("go", "Go")
),
mainPanel(
plotOutput("plotstd") ,
plotOutput("plotcomp"),
h4('Parameters for linear regression'),
tableOutput("reg2"),
h4("Parameters for log transformation on response factor"),
tableOutput("reg")
)
)
),
tabPanel(
"Sample analysis",
fluidPage(
titlePanel("Analysis for SCCPs sample"),
sidebarPanel(
h4('Uploading Sample Files'),
fileInput('Samples',
label = 'mzxml files',
multiple = T,
accept = c('.mzxml')),
checkboxInput('log','Log Trans', value = T),
sliderInput(
'inc',
'Intercept',
min = -50,
max = 0,
value = -26.36,
step = 0.01,
round = 2
),
sliderInput(
'slope',
'Slope',
min = 0,
max = 50,
value = 34.66,
step = 0.01,
round = 2
),
sliderInput(
'ISmz',
'm/z',
min = 200,
max = 600,
value = 323,
step = 0.01,
round = 3
),
sliderInput(
'ISrt',
'Retention Time range for IS',
min = 0,
max = 6000,
value = c(600,1200),
step = 50,
round = 0
),
sliderInput(
'SCCPrt',
'Retention Time range for SCCPs',
min = 0,
max = 6000,
value = c(600,1200),
step = 50,
round = 0
),
sliderInput(
'ppm',
'ppm',
min = 1,
max = 100,
value = 5,
step = 1,
round = 0
),
actionButton("go2", "Go")),
mainPanel(plotOutput("plotcomps"),
h4("SCCPs Concertrations in sample(s)(ppm):"),
textOutput("results"))
)),
tabPanel("Ions for analysis",
dataTableOutput("data")),
tabPanel("References",
p("Bogdal, C., Alsberg, T., Diefenbacher, P.S., MacLeod, M., Berger, U., 2015. Fast Quantification of Chlorinated Paraffins in Environmental Samples by Direct Injection High-Resolution Mass Spectrometry with Pattern Deconvolution. Anal. Chem. 87, 2852–2860. doi:10.1021/ac504444d"),
p("Gao, W., Wu, J., Wang, Y., Jiang, G., 2016. Quantification of short- and medium-chain chlorinated paraffins in environmental samples by gas chromatography quadrupole time-of-flight mass spectrometry. Journal of Chromatography A 1452, 98–106. doi:10.1016/j.chroma.2016.04.081"),
p("ISO 12010:2012 - Water quality -- Determination of short-chain polychlorinated alkanes (SCCPs) in water -- Method using gas chromatography-mass spectrometry (GC-MS) and negative-ion chemical ionization (NCI) [WWW Document], n.d. URL https://www.iso.org/standard/51124.html (accessed 10.25.17)."),
p("Nilsson, M.-L., Bengtsson, S., Kylin, H., 2012. Identification and determination of chlorinated paraffins using multivariate evaluation of gas chromatographic data. Environmental Pollution 163, 142–148. doi:10.1016/j.envpol.2011.12.010"),
p("Rusina, T., Korytar, P., Boer, J. de, 2011. Comparison of quantification methods for the analysis of polychlorinated alkanes using electron capture negative ionization mass spectrometry. Intern J Environ Anal Chem, INT J ENVIRON AN CH, Intern. J. Environ. Anal. Chem. 91, 319–332. doi:10.1080/03067311003602583"),
p("Tomy, G.T., Stern, G.A., Muir, D.C.G., Fisk, A.T., Cymbalisty, C.D., Westmore, J.B., 1997. Quantifying C10−C13 Polychloroalkanes in Environmental Samples by High-Resolution Gas Chromatography/Electron Capture Negative Ion High-Resolution Mass Spectrometry. Anal. Chem. 69, 2762–2771. doi:10.1021/ac961244y"),
p("van Mourik, L.M., Leonards, P.E.G., Gaus, C., de Boer, J., 2015. Recent developments in capabilities for analysing chlorinated paraffins in environmental matrices: A review. Chemosphere 136, 259–272. doi:10.1016/j.chemosphere.2015.05.045"),
p("Yuan, B., Bogdal, C., Berger, U., MacLeod, M., Gebbink, W.A., Alsberg, T., de Wit, C.A., 2017. Quantifying Short-Chain Chlorinated Paraffin Congener Groups. Environ. Sci. Technol. 51, 10633–10641. doi:10.1021/acs.est.7b02269")
)
))