## get a single color, and display on screen

random.color <- function() {
 hexbot <- GET(endpoint)
 content(hexbot)$colors[[1]]$value
}

rcol <- random.color()
barplot(1, col=rcol, main=rcol, axes=FALSE)