R/unselectAllClusters.R

In tsieger/idendr0: Interactive Dendrograms

unselectAllClusters<-function
### Unselect all clusters.
##keyword<<internal
(
    df, ##<< shared data frame
    dbg ##<< debug flag/level
) {
    if (dbg) cat('unselectAllClusters called\n')

    if (!is.null(df$clusters)) {
        # remember the current selection
        df<-pushSelectionHistory(df,dbg)
        # and unselect all clusters
        df$clusters<-NULL
        df$leafColorIdxs<-0
        df$unselectedBranches<-df$allBranches
        selectionChanged<-TRUE
    } else {
        # selection has not changed
        selectionChanged<-FALSE
    }
    return(list(df=df,selectionChanged=selectionChanged))
    ### a list of a shared data frame 'df' and a boolean flag
    ### 'selectionChanged' determing if cluster selection has changed
    ### (so the caller can learn whether to redraw clusters).
}