# NOT RUN {
library("scales")
x <- seq(0, 1, length = 25)
show_col(tableau_seq_gradient_pal('Red')(x))
show_col(tableau_seq_gradient_pal('Blue')(x))
show_col(tableau_seq_gradient_pal('Purple Sequential')(x))
# }
Run the code above in your browser using DataLab