## get n colors at once

random.colors <- function(n) {
 hexbot <- GET(endpoint, query=list(count=n))
 unlist(content(hexbot)$colors)
}

ncol <- 5
barplot(rep(1,ncol),col=random.colors(ncol), axes=FALSE)