Commit 61f2fcf0 authored by dmattek's avatar dmattek
Browse files

Changed column names to global vars

parent 1393d8a4
...@@ -361,7 +361,9 @@ clustHier <- function(input, output, session, in.data4clust, in.data4trajPlot, i ...@@ -361,7 +361,9 @@ clustHier <- function(input, output, session, in.data4clust, in.data4trajPlot, i
# get cellIDs with cluster assignments based on dendrogram cut # get cellIDs with cluster assignments based on dendrogram cut
loc.dt.cl = getDataCl(userFitDendHier(), input$inPlotHierNclust) 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 # Display clusters specified in the inPlotHierClSel field
# Data is ordered according to the order of clusters specified in this 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 ...@@ -423,7 +425,7 @@ clustHier <- function(input, output, session, in.data4clust, in.data4trajPlot, i
return(NULL) 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)] loc.dt.aggr = loc.dt[, .(nCells = .N), by = .(group, cl)]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment