# Extract colors from a supplied image
my_colors <- palette_extract(image = system.file("extdata", "lyon-fire.png",
package = "lterpalettefinder"))
# Plot that result
palette_demo(palette = my_colors)
# Now sort
sort_colors <- palette_sort(palette = my_colors)
# And plot again to show change
palette_demo(palette = sort_colors)
Run the code above in your browser using DataLab