This server has been upgraded to version 12.6.4. Enjoy!

Commit b94d32b4 authored by dmattek's avatar dmattek

Code formatting

parent 1fcf46e8
...@@ -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