Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
61f2fcf0
Commit
61f2fcf0
authored
Sep 24, 2019
by
dmattek
Browse files
Changed column names to global vars
parent
1393d8a4
Changes
1
Hide whitespace changes
Inline
Side-by-side
modules/tabClHier.R
View file @
61f2fcf0
...
...
@@ -361,7 +361,9 @@ clustHier <- function(input, output, session, in.data4clust, in.data4trajPlot, i
# get cellIDs with cluster assignments based on dendrogram cut
loc.dt.cl
=
getDataCl
(
userFitDendHier
(),
input
$
inPlotHierNclust
)
loc.dt
=
merge
(
loc.dt
,
loc.dt.cl
,
by
=
'id'
)
# add the column with cluster assignemnt to the main dataset
loc.dt
=
merge
(
loc.dt
,
loc.dt.cl
,
by
=
COLID
)
# Display clusters specified in the inPlotHierClSel field
# Data is ordered according to the order of clusters specified in this field
...
...
@@ -423,7 +425,7 @@ clustHier <- function(input, output, session, in.data4clust, in.data4trajPlot, i
return
(
NULL
)
}
loc.dt
=
merge
(
loc.dt.cl
,
loc.dt.gr
,
by
=
'id'
)
loc.dt
=
merge
(
loc.dt.cl
,
loc.dt.gr
,
by
=
COLID
)
loc.dt.aggr
=
loc.dt
[,
.
(
nCells
=
.N
),
by
=
.
(
group
,
cl
)]
...
...
Write
Preview
Markdown
is supported
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