if (FALSE) {
first <- FormatObject(type = 'min')
last <- FormatObject(type = 'max')
# colors match the format objects:
colors <- list(Color('AA0000'), Color('00AA00'))
cs2 <- ColorScale(cfvo = list(first, last), color = colors)
}
Run the code above in your browser using DataLab