Skip to content

GitLab

S
shiny-timecourse-inspector
Commit b94d32b4 authored by dmattek's avatar dmattek
Browse files
Options

Code formatting

parent 1fcf46e8
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 4 deletions
modules/tabClHier.R
View file @ b94d32b4
...@@ -322,7 +322,7 @@ clustHier <- function(input, output, session, in.dataWide, in.dataLong, in.dataS ...@@ -322,7 +322,7 @@ clustHier <- function(input, output, session, in.dataWide, in.dataLong, in.dataS
loc.cl.hc = hclust(loc.dm.dist, method = input$selectPlotHierLinkage) loc.cl.hc = hclust(loc.dm.dist, method = input$selectPlotHierLinkage)
# number of clusters at which dendrigram is cut # number of clusters at which dendrogram is cut
loc.k = returnNclust() loc.k = returnNclust()
# make a palette with the amount of colours equal to the number of clusters # make a palette with the amount of colours equal to the number of clusters
...@@ -336,9 +336,9 @@ clustHier <- function(input, output, session, in.dataWide, in.dataLong, in.dataS ...@@ -336,9 +336,9 @@ clustHier <- function(input, output, session, in.dataWide, in.dataLong, in.dataS
#} #}
loc.dend <- as.dendrogram(loc.cl.hc) loc.dend <- as.dendrogram(loc.cl.hc)
loc.dend <- color_branches(loc.dend, loc.dend <- dendextend::color_branches(loc.dend,
col = loc.col, col = loc.col,
k = loc.k) k = loc.k)
return(loc.dend) return(loc.dend)
}) })
......
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