Generate collapsible tree from `hclust` objects

[jl5000]

Has anyone found a way of being able to generate a tree from a hclust object? Could the package to be adapted to take them as input?