Extract a classification from a dendrogram object

#It aint pretty but it works

###################################################################################################################################
classify <- function(dendrogram,height){

#this little function will return tip lables
 members <- function(n) {
    labels<-c()
    if (is.leaf(n)) {
        a <- attributes(n)
        labels<-c(labels,a$label)
    }
    labels
 }

 uplow <- cut(dendrogram,height) #the cut dendrogram object
 branchesvector<-c()
 membersvector<-c()

 for(i in 1:length(uplow$lower)){                                 #for each lower tree resulting from the cut
  memlist <- unlist(dendrapply(uplow$lower[[i]],members))         #get the tip lables
  branchesvector <- c(branchesvector,rep(i,length(memlist)))      #add the lower tree identifier to a vector
  membersvector <- c(membersvector,memlist)                       #add the tip labels to a vector
 }
out<-as.integer(branchesvector)                                   #make the output a list of named intergers, to match cut() output
names(out)<-membersvector
out
}
###################################################################################################################################
###################################################################################################################################

#demo on question that makes it clear the problem is that cut works alphabetically while cutree works left to right on tree
hc <- hclust(dist(USArrests), "ave")
dend1 <- as.dendrogram(hc)

classify(dend1,70)
cutree(hc,h=70)