colourPicker(numCols = 3)
if (interactive()) { cols <- colourPicker(5) }
Run the code above in your browser using DataLab