Inverting the color map on an object of class "contMap" or "densityMap"

In response to a recent user comment I have just posted code to automatically flip or invert the color map in an object of class "contMap" or "densityMap". The function is very simple, as follows:

setMap<-function(x,...){
    if(hasArg(invert)) invert<-list(...)$invert
    else invert<-FALSE
    n<-length(x$cols)
    if(invert) x$cols<-setNames(rev(x$cols),names(x$cols))
    else x$cols[1:n]<-colorRampPalette(...)(n)
    x
}

Here is how it works:

library(phytools)

## Loading required package: ape
## Loading required package: maps
## 
## Attaching package: 'phytools'
## 
## The following object is masked _by_ '.GlobalEnv':
## 
##     setMap

tree<-pbtree(n=26,tip.label=LETTERS)
x<-fastBM(tree)
obj<-contMap(tree,x)

plot(setMap(obj,invert=TRUE))

Remember, setMap can also be used to change the map arbitrarily, such as in:

obj<-setMap(obj,colors=c("white","black"))
plot(obj)

That's it.