Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
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
62861858
Commit
62861858
authored
May 27, 2019
by
Bagueneau Mathias
Browse files
- Suppression de l'actualisation intempestive des pages Heatmap, Genes et Compare
parent
bda07c44
Changes
1
Hide whitespace changes
Inline
Side-by-side
app.R
View file @
62861858
...
...
@@ -841,69 +841,67 @@ server <- function(input, output, session) {
observeEvent
(
input
$
gographs
,
{
cells_to_plot1
<-
reactive
({
# Data for Compare Left Graph
# Data for Compare Left Graph
if
(
input
$
add
%%
2
!=
0
)
{
subset1
<-
SubsetData
(
object
=
wrfile
(),
cells
=
rownames
(
wrfile
()
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"wrfile()@meta.data$"
,
input
$
fsel2
)))
%in%
input
$
library1_compare
)]
)
selectedCells
<-
SubsetData
(
object
=
subset1
,
cells
=
rownames
(
subset1
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"subset1@meta.data$"
,
input
$
add_factor
)))
%in%
input
$
add_group1
)])
cells_to_plot1
<-
SubsetData
(
object
=
subset1
,
cells
=
rownames
(
subset1
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"subset1@meta.data$"
,
input
$
add_factor
)))
%in%
input
$
add_group1
)])
}
else
{
selectedCells
<-
SubsetData
(
object
=
wrfile
(),
cells
=
rownames
(
wrfile
()
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"wrfile()@meta.data$"
,
input
$
fsel2
)))
%in%
input
$
library1_compare
)]
)
cells_to_plot1
<-
SubsetData
(
object
=
wrfile
(),
cells
=
rownames
(
wrfile
()
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"wrfile()@meta.data$"
,
input
$
fsel2
)))
%in%
input
$
library1_compare
)]
)
}
return
(
selectedCells
)
})
plot1_compareData
<-
reactive
({
# Left Graph Compare page
scalex
<-
scale_x_continuous
(
limits
=
c
(
min
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
1
]),
max
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
1
])))
scaley
<-
scale_y_continuous
(
limits
=
c
(
min
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
2
]),
max
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
2
])))
# Left Graph Compare page
scalex
1
<-
scale_x_continuous
(
limits
=
c
(
min
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
1
]),
max
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
1
])))
scaley
1
<-
scale_y_continuous
(
limits
=
c
(
min
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
2
]),
max
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
2
])))
if
(
input
$
choice_compare
==
"f_compare"
)
{
withProgress
(
DimPlot
(
object
=
wrfile
(),
cells
=
rownames
(
cells_to_plot1
()
@
meta.data
),
label
=
FALSE
,
pt.size
=
input
$
ptsize_compare
,
reduction
=
input
$
graph_compare
,
group.by
=
input
$
fsel2
,
cols
=
c
(
as.character
(
eval
(
parse
(
text
=
paste0
(
"alldf()$"
,
input
$
fsel2
,
"$color"
)))[
which
(
eval
(
parse
(
text
=
paste0
(
"alldf()$"
,
input
$
fsel2
,
"$group"
)))
%in%
input
$
library1_compare
)]),
"#000000"
)),
message
=
"Plot Generation"
,
value
=
1
)
+
NoLegend
()
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
fsel2
))
+
scalex
+
scaley
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
theme
(
aspect.ratio
=
1
)
plot1_compareData
<-
withProgress
(
DimPlot
(
object
=
wrfile
(),
cells
=
rownames
(
cells_to_plot1
@
meta.data
),
label
=
FALSE
,
pt.size
=
input
$
ptsize_compare
,
reduction
=
input
$
graph_compare
,
group.by
=
input
$
fsel2
,
cols
=
c
(
as.character
(
eval
(
parse
(
text
=
paste0
(
"alldf()$"
,
input
$
fsel2
,
"$color"
)))[
which
(
eval
(
parse
(
text
=
paste0
(
"alldf()$"
,
input
$
fsel2
,
"$group"
)))
%in%
input
$
library1_compare
)]),
"#000000"
)),
message
=
"Plot Generation"
,
value
=
1
)
+
NoLegend
()
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
fsel2
))
+
scalex
1
+
scaley
1
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
theme
(
aspect.ratio
=
1
)
}
else
{
palette.full
<-
c
(
"lightgrey"
,
plasma
(
200
))
if
(
input
$
featuresel2
==
"d2"
)
{
data.max.global
<-
max
(
FetchData
(
wrfile
(),
input
$
nsel2
))
data.max.local
<-
max
(
FetchData
(
cells_to_plot1
()
,
input
$
nsel2
))
data.max.local
<-
max
(
FetchData
(
cells_to_plot1
,
input
$
nsel2
))
palette.local
<-
palette.full
[
1
:
ceiling
(
length
(
palette.full
)
*
data.max.local
/
data.max.global
)]
withProgress
(
FeaturePlot
(
object
=
wrfile
(),
cells
=
rownames
(
cells_to_plot1
()
@
meta.data
),
cols
=
palette.local
,
pt.size
=
input
$
ptsize_compare
,
features
=
input
$
nsel2
,
reduction
=
input
$
graph_compare
),
message
=
"Plot Generation"
,
value
=
1
)
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
nsel2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
+
scaley
+
theme
(
aspect.ratio
=
1
)
plot1_compareData
<-
withProgress
(
FeaturePlot
(
object
=
wrfile
(),
cells
=
rownames
(
cells_to_plot1
@
meta.data
),
cols
=
palette.local
,
pt.size
=
input
$
ptsize_compare
,
features
=
input
$
nsel2
,
reduction
=
input
$
graph_compare
),
message
=
"Plot Generation"
,
value
=
1
)
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
nsel2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
1
+
scaley
1
+
theme
(
aspect.ratio
=
1
)
}
else
if
(
input
$
featuresel2
==
"g2"
)
{
gene.max.global
<-
max
(
FetchData
(
wrfile
(),
input
$
genes2
))
gene.max.local
<-
max
(
FetchData
(
cells_to_plot1
()
,
input
$
genes2
))
gene.max.local
<-
max
(
FetchData
(
cells_to_plot1
,
input
$
genes2
))
palette.local
<-
palette.full
[
1
:
ceiling
(
length
(
palette.full
)
*
gene.max.local
/
gene.max.global
)]
withProgress
(
FeaturePlot
(
object
=
wrfile
(),
cols
=
palette.local
,
cells
=
rownames
(
cells_to_plot1
()
@
meta.data
),
pt.size
=
input
$
ptsize_compare
,
features
=
input
$
genes2
,
reduction
=
input
$
graph_compare
),
message
=
"Plot Generation"
,
value
=
1
)
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
genes2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
+
scaley
+
theme
(
aspect.ratio
=
1
)
plot1_compareData
<-
withProgress
(
FeaturePlot
(
object
=
wrfile
(),
cols
=
palette.local
,
cells
=
rownames
(
cells_to_plot1
@
meta.data
),
pt.size
=
input
$
ptsize_compare
,
features
=
input
$
genes2
,
reduction
=
input
$
graph_compare
),
message
=
"Plot Generation"
,
value
=
1
)
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
genes2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
1
+
scaley
1
+
theme
(
aspect.ratio
=
1
)
}
}
})
cells_to_plot2
<-
reactive
({
# Data for Compare Right Graph
# Data for Compare Right Graph
if
(
input
$
add
%%
2
!=
0
)
{
subset2
<-
SubsetData
(
object
=
wrfile
(),
cells
=
rownames
(
wrfile
()
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"wrfile()@meta.data$"
,
input
$
fsel2
)))
%in%
input
$
library2_compare
)]
)
selectedCells
2
<-
SubsetData
(
object
=
subset2
,
cells
=
rownames
(
subset2
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"subset2@meta.data$"
,
input
$
add_factor
)))
%in%
input
$
add_group2
)])
cells_to_plot
2
<-
SubsetData
(
object
=
subset2
,
cells
=
rownames
(
subset2
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"subset2@meta.data$"
,
input
$
add_factor
)))
%in%
input
$
add_group2
)])
}
else
{
selectedCells
2
<-
SubsetData
(
object
=
wrfile
(),
cells
=
rownames
(
wrfile
()
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"wrfile()@meta.data$"
,
input
$
fsel2
)))
%in%
input
$
library2_compare
)]
)
cells_to_plot
2
<-
SubsetData
(
object
=
wrfile
(),
cells
=
rownames
(
wrfile
()
@
meta.data
)[
which
(
eval
(
parse
(
text
=
paste0
(
"wrfile()@meta.data$"
,
input
$
fsel2
)))
%in%
input
$
library2_compare
)]
)
}
return
(
selectedCells2
)
})
plot2_compareData
<-
reactive
({
# Right Graph Compare page
scalex
<-
scale_x_continuous
(
limits
=
c
(
min
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
1
]),
max
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
1
])))
scaley
<-
scale_y_continuous
(
limits
=
c
(
min
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
2
]),
max
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
2
])))
# Right Graph Compare page
scalex
2
<-
scale_x_continuous
(
limits
=
c
(
min
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
1
]),
max
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
1
])))
scaley
2
<-
scale_y_continuous
(
limits
=
c
(
min
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
2
]),
max
(
wrfile
()
@
reductions
[[
input
$
graph_compare
]]
@
cell.embeddings
[,
2
])))
if
(
input
$
choice_compare
==
"f_compare"
)
{
withProgress
(
DimPlot
(
object
=
wrfile
(),
cells
=
rownames
(
cells_to_plot2
()
@
meta.data
),
pt.size
=
input
$
ptsize_compare
,
reduction
=
input
$
graph_compare
,
group.by
=
input
$
fsel2
,
cols
=
c
(
as.character
(
eval
(
parse
(
text
=
paste0
(
"alldf()$"
,
input
$
fsel2
,
"$color"
)))[
which
(
eval
(
parse
(
text
=
paste0
(
"alldf()$"
,
input
$
fsel2
,
"$group"
)))
%in%
input
$
library2_compare
)]),
"#000000"
)),
message
=
"Plot Generation"
,
value
=
1
)
+
NoLegend
()
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
fsel2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
+
scaley
+
theme
(
aspect.ratio
=
1
)
plot2_compareData
<-
withProgress
(
DimPlot
(
object
=
wrfile
(),
cells
=
rownames
(
cells_to_plot2
@
meta.data
),
pt.size
=
input
$
ptsize_compare
,
reduction
=
input
$
graph_compare
,
group.by
=
input
$
fsel2
,
cols
=
c
(
as.character
(
eval
(
parse
(
text
=
paste0
(
"alldf()$"
,
input
$
fsel2
,
"$color"
)))[
which
(
eval
(
parse
(
text
=
paste0
(
"alldf()$"
,
input
$
fsel2
,
"$group"
)))
%in%
input
$
library2_compare
)]),
"#000000"
)),
message
=
"Plot Generation"
,
value
=
1
)
+
NoLegend
()
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
fsel2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
2
+
scaley
2
+
theme
(
aspect.ratio
=
1
)
}
else
{
palette.full
<-
c
(
"lightgrey"
,
plasma
(
200
))
if
(
input
$
featuresel2
==
"d2"
)
{
data.max.global
<-
max
(
FetchData
(
wrfile
(),
input
$
nsel2
))
data.max.local
<-
max
(
FetchData
(
cells_to_plot2
()
,
input
$
nsel2
))
data.max.local
<-
max
(
FetchData
(
cells_to_plot2
,
input
$
nsel2
))
palette.local
<-
palette.full
[
1
:
ceiling
(
length
(
palette.full
)
*
data.max.local
/
data.max.global
)]
withProgress
(
FeaturePlot
(
object
=
wrfile
(),
cells
=
rownames
(
cells_to_plot2
()
@
meta.data
),
cols
=
palette.local
,
pt.size
=
input
$
ptsize_compare
,
features
=
input
$
nsel2
,
reduction
=
input
$
graph_compare
),
message
=
"Plot Generation"
,
value
=
1
)
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
nsel2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
+
scaley
+
theme
(
aspect.ratio
=
1
)
plot2_compareData
<-
withProgress
(
FeaturePlot
(
object
=
wrfile
(),
cells
=
rownames
(
cells_to_plot2
@
meta.data
),
cols
=
palette.local
,
pt.size
=
input
$
ptsize_compare
,
features
=
input
$
nsel2
,
reduction
=
input
$
graph_compare
),
message
=
"Plot Generation"
,
value
=
1
)
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
nsel2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
2
+
scaley
2
+
theme
(
aspect.ratio
=
1
)
}
else
if
(
input
$
featuresel2
==
"g2"
)
{
gene.max.global
<-
max
(
FetchData
(
wrfile
(),
input
$
genes2
))
gene.max.local
<-
max
(
FetchData
(
cells_to_plot2
()
,
input
$
genes2
))
gene.max.local
<-
max
(
FetchData
(
cells_to_plot2
,
input
$
genes2
))
palette.local
<-
palette.full
[
1
:
ceiling
(
length
(
palette.full
)
*
gene.max.local
/
gene.max.global
)]
withProgress
(
FeaturePlot
(
object
=
wrfile
(),
cols
=
palette.local
,
cells
=
rownames
(
cells_to_plot2
()
@
meta.data
),
pt.size
=
input
$
ptsize_compare
,
features
=
input
$
genes2
,
reduction
=
input
$
graph_compare
),
message
=
"Plot Generation"
,
value
=
1
)
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
genes2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
+
scaley
+
theme
(
aspect.ratio
=
1
)
plot2_compareData
<-
withProgress
(
FeaturePlot
(
object
=
wrfile
(),
cols
=
palette.local
,
cells
=
rownames
(
cells_to_plot2
@
meta.data
),
pt.size
=
input
$
ptsize_compare
,
features
=
input
$
genes2
,
reduction
=
input
$
graph_compare
),
message
=
"Plot Generation"
,
value
=
1
)
+
theme_bw
()
+
NoAxes
()
+
ggtitle
(
paste
(
file_path_sans_ext
(
filedata
$
name
),
"-"
,
input
$
genes2
))
+
theme
(
panel.grid.major
=
element_blank
(),
plot.title
=
element_text
(
size
=
18
),
panel.grid.minor
=
element_blank
(),
plot.background
=
element_blank
())
+
scalex
2
+
scaley
2
+
theme
(
aspect.ratio
=
1
)
}
}
})
...
...
@@ -911,18 +909,18 @@ server <- function(input, output, session) {
output
$
plot1_compare
<-
renderPlotly
({
# Output Graph 1
req
(
wrfile
())
if
(
input
$
choice_compare
==
"features_compare"
)
{
ggplotly
(
plot1_compareData
()
,
tooltip
=
"none"
)
%>%
config
(
displaylogo
=
F
,
modeBarButtonsToRemove
=
c
(
'resetScale2d'
,
'toggleSpikelines'
,
'toImage'
,
'hoverCompareCartesian'
,
'hoverClosestCartesian'
))
ggplotly
(
plot1_compareData
,
tooltip
=
"none"
)
%>%
config
(
displaylogo
=
F
,
modeBarButtonsToRemove
=
c
(
'resetScale2d'
,
'toggleSpikelines'
,
'toImage'
,
'hoverCompareCartesian'
,
'hoverClosestCartesian'
))
}
else
{
ggplotly
(
plot1_compareData
()
,
tooltip
=
c
(
"colour"
,
"x"
,
"y"
))
%>%
config
(
displaylogo
=
F
,
modeBarButtonsToRemove
=
c
(
'resetScale2d'
,
'toggleSpikelines'
,
'toImage'
,
'hoverCompareCartesian'
,
'hoverClosestCartesian'
))
ggplotly
(
plot1_compareData
,
tooltip
=
c
(
"colour"
,
"x"
,
"y"
))
%>%
config
(
displaylogo
=
F
,
modeBarButtonsToRemove
=
c
(
'resetScale2d'
,
'toggleSpikelines'
,
'toImage'
,
'hoverCompareCartesian'
,
'hoverClosestCartesian'
))
}
})
output
$
plot2_compare
<-
renderPlotly
({
# Output Graph
1
output
$
plot2_compare
<-
renderPlotly
({
# Output Graph
2
req
(
wrfile
())
if
(
input
$
choice_compare
==
"features_compare"
)
{
ggplotly
(
plot2_compareData
()
,
tooltip
=
"none"
)
%>%
config
(
displaylogo
=
F
,
modeBarButtonsToRemove
=
c
(
'resetScale2d'
,
'toggleSpikelines'
,
'toImage'
,
'hoverCompareCartesian'
,
'hoverClosestCartesian'
))
ggplotly
(
plot2_compareData
,
tooltip
=
"none"
)
%>%
config
(
displaylogo
=
F
,
modeBarButtonsToRemove
=
c
(
'resetScale2d'
,
'toggleSpikelines'
,
'toImage'
,
'hoverCompareCartesian'
,
'hoverClosestCartesian'
))
}
else
{
ggplotly
(
plot2_compareData
()
,
tooltip
=
c
(
"colour"
,
"x"
,
"y"
))
%>%
config
(
displaylogo
=
F
,
modeBarButtonsToRemove
=
c
(
'resetScale2d'
,
'toggleSpikelines'
,
'toImage'
,
'hoverCompareCartesian'
,
'hoverClosestCartesian'
))
ggplotly
(
plot2_compareData
,
tooltip
=
c
(
"colour"
,
"x"
,
"y"
))
%>%
config
(
displaylogo
=
F
,
modeBarButtonsToRemove
=
c
(
'resetScale2d'
,
'toggleSpikelines'
,
'toImage'
,
'hoverCompareCartesian'
,
'hoverClosestCartesian'
))
}
})
...
...
@@ -946,7 +944,7 @@ server <- function(input, output, session) {
},
content
=
function
(
file
)
{
svg
(
file
)
print
(
plot1_compareData
()
)
print
(
plot1_compareData
)
dev.off
()
}
)
...
...
@@ -965,11 +963,26 @@ server <- function(input, output, session) {
},
content
=
function
(
file
)
{
svg
(
file
)
print
(
plot2_compareData
()
)
print
(
plot2_compareData
)
dev.off
()
}
)
# Barcodes data
cbar1Data
<-
reactive
({
barcodes1
<-
data.table
(
Cells
(
cells_to_plot1
))
names
(
barcodes1
)[[
1
]]
<-
"Barcodes"
return
(
barcodes1
)
})
cbar2Data
<-
reactive
({
barcodes2
<-
data.table
(
Cells
(
cells_to_plot2
))
names
(
barcodes2
)[
1
]
<-
"Barcodes"
return
(
barcodes2
)
})
output
$
dl_comparebarcodes1
<-
downloadHandler
(
# Download Barcodes 1
filename
=
function
()
{
paste0
(
file_path_sans_ext
(
filedata
$
name
),
"_selectedbarcodes.csv"
)
...
...
@@ -998,18 +1011,7 @@ server <- function(input, output, session) {
})
## Compare Page - Barcodes data --------
cbar1Data
<-
reactive
({
barcodes1
<-
data.table
(
Cells
(
cells_to_plot1
()))
names
(
barcodes1
)[[
1
]]
<-
"Barcodes"
return
(
barcodes1
)
})
cbar2Data
<-
reactive
({
barcodes2
<-
data.table
(
Cells
(
cells_to_plot2
()))
names
(
barcodes2
)[
1
]
<-
"Barcodes"
return
(
barcodes2
)
})
## Compare Page - FindMarkers --------
output
$
markbutton
<-
renderUI
({
...
...
Write
Preview
Supports
Markdown
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