R/computeLeafColorIdxs.R

In tsieger/idendr0: Interactive Dendrograms

computeLeafColorIdxs<-function
### Compute colors of all leafs in dendrogram according to the current
### cluster selection.
##keyword<<internal
(
    df ##<< shared data frame, see 'prepareDendro'
) {
    leafColorIdxs<-rep(0,df$n)
    for (i in seq(along=df$clusters)) {
        if (!is.null(df$clusters[[i]]) && length(df$clusters[[i]]$indices)>0) {
            members<-computeMemberIndices(df$h,max(df$clusters[[i]]$indices))
            leafColorIdxs[members]<-i
        }
    }
    return(leafColorIdxs)
    ### leaf colors
}