# keep examples from using more than 2 cores
data.table::setDTthreads(Sys.getenv("OMP_THREAD_LIMIT", unset = 2))
# better graphics defaults
op <- par(mar = c(0, 0, 0, 0), fg = 'white', bg = 'black')
# full set of hues, as generated by huePosition(returnHues = TRUE)
huePositionCircle()
# subset
huePositionCircle(hues = c('5R', '5Y', '5G', '5B', '5P'))
# reset graphics state
par(op)
Run the code above in your browser using DataLab