Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
Environmental Cheminformatics
shinyscreen
Compare Revisions
d80ed7d88474785eb36bdf4b5206f0305a7188d6...2f9fd0e2e86832f2ff3e81609af88f65e485ac2d
Commits (2)
app: Organise everything in tabs
· 5f3febda
Todor Kondic
authored
Oct 05, 2021
5f3febda
all: Update to v1.0.5
· 2f9fd0e2
Todor Kondic
authored
Oct 05, 2021
2f9fd0e2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
38 additions
and
33 deletions
+38
-33
DESCRIPTION
DESCRIPTION
+1
-1
inst/rmd/app.Rmd
inst/rmd/app.Rmd
+37
-32
No files found.
DESCRIPTION
View file @
2f9fd0e2
Package: shinyscreen
Package: shinyscreen
Title: Pre-screening of Mass Spectrometry Data
Title: Pre-screening of Mass Spectrometry Data
Version: 1.0.
4
Version: 1.0.
5
Author: Todor Kondić
Author: Todor Kondić
Maintainer: Todor Kondić <todor.kondic@uni.lu>
Maintainer: Todor Kondić <todor.kondic@uni.lu>
Authors@R:
Authors@R:
...
...
inst/rmd/app.Rmd
View file @
2f9fd0e2
...
@@ -16,7 +16,7 @@ htmltools::img(src = knitr::image_uri(system.file(package="shinyscreen","www/shi
...
@@ -16,7 +16,7 @@ htmltools::img(src = knitr::image_uri(system.file(package="shinyscreen","www/shi
library
(
data
.
table
)
library
(
data
.
table
)
library
(
shinyscreen
)
library
(
shinyscreen
)
library
(
ggplot2
)
library
(
ggplot2
)
##
library
(
shinydashboard
)
##
#
library
(
shinydashboard
)
init
<-
readRDS
(
"init.rds"
)
init
<-
readRDS
(
"init.rds"
)
def_state
<-
new_state
()
def_state
<-
new_state
()
...
@@ -28,31 +28,31 @@ def_datatab <- shinyscreen:::dtable("tag"=factor(),
...
@@ -28,31 +28,31 @@ def_datatab <- shinyscreen:::dtable("tag"=factor(),
def_summ_subset
<-
shinyscreen
:::
dtable
(
"QA Column"
=
shinyscreen
:::
QA_FLAGS
,
def_summ_subset
<-
shinyscreen
:::
dtable
(
"QA Column"
=
shinyscreen
:::
QA_FLAGS
,
"Select"
=
factor
(
"ignore"
,
levels
=
shinyscreen
:::
SUBSET_VALS
))
"Select"
=
factor
(
"ignore"
,
levels
=
shinyscreen
:::
SUBSET_VALS
))
##
RMassBank
masks
shiny
::
validate
.
Unmask
it
.
##
#
RMassBank
masks
shiny
::
validate
.
Unmask
it
.
validate
<-
shiny
::
validate
validate
<-
shiny
::
validate
##
def_state
$
input
$
tab
$
tags
<-
def_datatab
##
#
def_state
$
input
$
tab
$
tags
<-
def_datatab
rv_state
<-
list2rev
(
def_state
)
rv_state
<-
list2rev
(
def_state
)
compl_sets
<-
eventReactive
(
rv_state
$
input
$
tab
$
setid
,
compl_sets
<-
eventReactive
(
rv_state
$
input
$
tab
$
setid
,
rv_state
$
input
$
tab
$
setid
[,
unique
(
set
)])
rv_state
$
input
$
tab
$
setid
[,
unique
(
set
)])
##
Reactive
values
to
support
some
of
the
UI
elements
.
##
#
Reactive
values
to
support
some
of
the
UI
elements
.
##
rv_ui
<-
reactiveValues
(
datatab
=
def_tags
)
##
#
rv_ui
<-
reactiveValues
(
datatab
=
def_tags
)
##
Update
with
data
-
files
.
##
#
Update
with
data
-
files
.
rv_dfile
<-
reactiveVal
(
def_datafiles
)
rv_dfile
<-
reactiveVal
(
def_datafiles
)
##
Data
-
file
table
when
loading
.
##
#
Data
-
file
table
when
loading
.
rv_datatab
<-
reactiveVal
(
def_datatab
)
rv_datatab
<-
reactiveVal
(
def_datatab
)
##
Re
-
definitions
.
##
#
Re
-
definitions
.
PLOT_FEATURES
<-
shinyscreen
:::
PLOT_FEATURES
PLOT_FEATURES
<-
shinyscreen
:::
PLOT_FEATURES
##
Plotting
parameters
.
##
#
Plotting
parameters
.
##
Transient
rt
range
.
##
#
Transient
rt
range
.
rv_rtrange
<-
reactiveValues
(
min
=
def_state
$
conf
$
rt_min
,
rv_rtrange
<-
reactiveValues
(
min
=
def_state
$
conf
$
rt_min
,
max
=
def_state
$
conf
$
rt_max
)
max
=
def_state
$
conf
$
rt_max
)
##
Transient
mz
range
.
##
#
Transient
mz
range
.
rv_mzrange
<-
reactiveValues
(
min
=
NA
,
rv_mzrange
<-
reactiveValues
(
min
=
NA
,
max
=
NA
)
max
=
NA
)
...
@@ -68,11 +68,12 @@ inputdirs <- list.dirs(path=init$indir, full.names = F, recursive = F)
...
@@ -68,11 +68,12 @@ inputdirs <- list.dirs(path=init$indir, full.names = F, recursive = F)
}
}
</
style
>
</
style
>
#
{.
tabset
.
tabset
-
pills
}
##
Configuration
{.
tabset
}
#
Configuration
{.
tabset
}
##
Project
##
#
Project
{.
tabset
}
<
details
>
<
details
>
<
summary
>
Projects
,
input
directories
and
compound
lists
</
summary
>
<
summary
>
Projects
,
input
directories
and
compound
lists
</
summary
>
...
@@ -99,7 +100,9 @@ before starting `Shinyscreen` in one of the directories under
...
@@ -99,7 +100,9 @@ before starting `Shinyscreen` in one of the directories under
</
details
>
</
details
>
###
Create
new
project
####
Project
management
#####
Create
new
project
```{
r
,
echo
=
F
}
```{
r
,
echo
=
F
}
textInput
(
inputId
=
"new_proj_name"
,
label
=
"New project name"
,
value
=
""
)
textInput
(
inputId
=
"new_proj_name"
,
label
=
"New project name"
,
value
=
""
)
...
@@ -109,7 +112,7 @@ actionButton(inputId = "create_proj_b",
...
@@ -109,7 +112,7 @@ actionButton(inputId = "create_proj_b",
```
```
###
Load
existing
project
###
##
Load
existing
project
<
details
>
<
details
>
<
summary
>
Load
an
existing
project
</
summary
>
<
summary
>
Load
an
existing
project
</
summary
>
...
@@ -128,13 +131,13 @@ actionButton(inputId = "load_proj_b",
...
@@ -128,13 +131,13 @@ actionButton(inputId = "load_proj_b",
```
```
###
Save
project
###
##
Save
project
```{
r
,
echo
=
F
}
```{
r
,
echo
=
F
}
actionButton
(
inputId
=
"save_proj_b"
,
actionButton
(
inputId
=
"save_proj_b"
,
label
=
"Save project"
)
label
=
"Save project"
)
```
```
###
Select
input
directory
###
##
Select
input
directory
<
details
>
<
details
>
<
summary
>
More
on
input
directories
</
summary
>
<
summary
>
More
on
input
directories
</
summary
>
...
@@ -156,7 +159,9 @@ actionButton(inputId = "sel_indir_b",
...
@@ -156,7 +159,9 @@ actionButton(inputId = "sel_indir_b",
label
=
"Select"
)
label
=
"Select"
)
```
```
###
Select
compound
lists
####
Compound
list
inputs
#####
Select
compound
lists
<
details
><
summary
>
About
compound
lists
</
summary
>
<
details
><
summary
>
About
compound
lists
</
summary
>
A
compound
list
is
composed
of
entries
describing
compounds
.
This
A
compound
list
is
composed
of
entries
describing
compounds
.
This
...
@@ -207,7 +212,7 @@ actionButton(inputId = "comp_list_b",
...
@@ -207,7 +212,7 @@ actionButton(inputId = "comp_list_b",
```
```
###
Select
set
lists
###
##
Select
set
lists
<
details
><
summary
>
About
set
lists
(
_setid_
tables
)</
summary
>
<
details
><
summary
>
About
set
lists
(
_setid_
tables
)</
summary
>
The
compound
lists
can
contain
more
entries
than
is
necessary
.
Using
The
compound
lists
can
contain
more
entries
than
is
necessary
.
Using
...
@@ -233,7 +238,7 @@ actionButton(inputId = "set_list_b",
...
@@ -233,7 +238,7 @@ actionButton(inputId = "set_list_b",
```
```
###
Data
files
###
#
Data
files
<
details
><
summary
>
Load
data
files
</
summary
>
<
details
><
summary
>
Load
data
files
</
summary
>
Shinyscreen
currently
supports
only
the
**
mzML
**
file
format
.
After
Shinyscreen
currently
supports
only
the
**
mzML
**
file
format
.
After
loading
the
files
,
set
file
tags
in
the
file
table
(
column
loading
the
files
,
set
file
tags
in
the
file
table
(
column
...
@@ -285,9 +290,9 @@ exists, otherwise _adduct_ column is ignored).
...
@@ -285,9 +290,9 @@ exists, otherwise _adduct_ column is ignored).
DT
::
DTOutput
(
"datatab"
,
width
=
"25%"
)
DT
::
DTOutput
(
"datatab"
,
width
=
"25%"
)
```
```
##
Extraction
##
#
Extraction
###
Spectra
extraction
based
settings
###
#
Spectra
extraction
based
settings
<
details
><
summary
>
MS1
coarse
error
</
summary
>
<
details
><
summary
>
MS1
coarse
error
</
summary
>
...
@@ -362,7 +367,7 @@ radioButtons("missingprec",
...
@@ -362,7 +367,7 @@ radioButtons("missingprec",
```
```
##
Prescreening
##
#
Prescreening
<
details
><
summary
>
MS1
intensity
threshold
</
summary
>
<
details
><
summary
>
MS1
intensity
threshold
</
summary
>
...
@@ -413,7 +418,7 @@ shinyscreen::rt_input(input_rt = "ret_time_shift_tol",
...
@@ -413,7 +418,7 @@ shinyscreen::rt_input(input_rt = "ret_time_shift_tol",
def_unit
=
vu
[[
'unit'
]])
def_unit
=
vu
[[
'unit'
]])
```
```
##
Filter
the
summary
table
##
#
Filter
the
summary
table
<
div
style
=
"display: flex; vertical-align:top; "
>
<
div
style
=
"display: flex; vertical-align:top; "
>
<
div
style
=
"padding-right: 0.5em"
>
<
div
style
=
"padding-right: 0.5em"
>
...
@@ -467,27 +472,27 @@ DT::DTOutput("summ_subset")
...
@@ -467,27 +472,27 @@ DT::DTOutput("summ_subset")
</
div
>
</
div
>
##
Report
##
#
Report
```{
r
,
echo
=
F
}
```{
r
,
echo
=
F
}
shiny
::
textInput
(
inputId
=
"rep_aut"
,
label
=
"Report author"
,
value
=
def_state
$
conf
$
report
$
author
)
shiny
::
textInput
(
inputId
=
"rep_aut"
,
label
=
"Report author"
,
value
=
def_state
$
conf
$
report
$
author
)
shiny
::
textInput
(
inputId
=
"rep_tit"
,
label
=
"Report title"
,
value
=
def_state
$
conf
$
report
$
title
)
shiny
::
textInput
(
inputId
=
"rep_tit"
,
label
=
"Report title"
,
value
=
def_state
$
conf
$
report
$
title
)
```
```
#
View
compound
Lists
and
Sets
{.
tabset
}
#
#
View
compound
Lists
and
Sets
{.
tabset
}
##
Compound
List
##
#
Compound
List
```{
r
,
echo
=
F
}
```{
r
,
echo
=
F
}
DT
::
dataTableOutput
(
"comp_table"
)
DT
::
dataTableOutput
(
"comp_table"
)
```
```
##
Setid
Table
##
#
Setid
Table
```{
r
,
echo
=
F
}
```{
r
,
echo
=
F
}
DT
::
dataTableOutput
(
"setid_table"
)
DT
::
dataTableOutput
(
"setid_table"
)
```
```
#
Extract
Data
and
Prescreen
#
#
Extract
Data
and
Prescreen
Shinyscreen
can
perform
spectral
extraction
based
on
the
desired
settings
(
_ppm_
,
_retention
time
window_
)
under
the
_Extraction_
tab
.
The
extracted
spectra
can
be
subjected
to
prescreening
based
on
the
settings
defined
under
the
_prescreening_
tab
.
Shinyscreen
can
perform
spectral
extraction
based
on
the
desired
settings
(
_ppm_
,
_retention
time
window_
)
under
the
_Extraction_
tab
.
The
extracted
spectra
can
be
subjected
to
prescreening
based
on
the
settings
defined
under
the
_prescreening_
tab
.
...
@@ -539,7 +544,7 @@ actionButton(inputId = "sortsubset_b",
...
@@ -539,7 +544,7 @@ actionButton(inputId = "sortsubset_b",
</
div
>
</
div
>
#
Compound
Explorer
{.
tabset
}
#
#
Compound
Explorer
{.
tabset
}
This
is
where
the
prescreening
results
are
presented
.
The
_Browser_
tab
shows
a
detailed
view
of
the
MS2
data
as
well
as
the
associated
precursors
in
searchable
tables
.
The
_Viewer_
tab
shows
the
visualisations
of
the
EICs
and
the
plots
of
the
spectra
.
Both
kinds
of
outputs
can
be
exported
using
portable
formats
.
This
is
where
the
prescreening
results
are
presented
.
The
_Browser_
tab
shows
a
detailed
view
of
the
MS2
data
as
well
as
the
associated
precursors
in
searchable
tables
.
The
_Viewer_
tab
shows
the
visualisations
of
the
EICs
and
the
plots
of
the
spectra
.
Both
kinds
of
outputs
can
be
exported
using
portable
formats
.
...
@@ -548,7 +553,7 @@ Auto quality checks built into Shinyscreen can sometimes yield unsatisfactory re
...
@@ -548,7 +553,7 @@ Auto quality checks built into Shinyscreen can sometimes yield unsatisfactory re
Please
see
the
respective
subsections
for
more
details
.
Please
see
the
respective
subsections
for
more
details
.
##
Browser
##
#
Browser
<
details
><
summary
>
Organise
,
filter
and
search
through
data
.</
summary
>
<
details
><
summary
>
Organise
,
filter
and
search
through
data
.</
summary
>
...
@@ -656,7 +661,7 @@ uiOutput("export_summ_ui")
...
@@ -656,7 +661,7 @@ uiOutput("export_summ_ui")
```
```
##
Viewer
##
#
Viewer
<
details
><
summary
>
Visualize
and
export
the
plots
.
</
summary
>
<
details
><
summary
>
Visualize
and
export
the
plots
.
</
summary
>
...
...