R/palette2vec.R

In GegznaV/spPlot: Plotting and Helper Functions for `hyperSpec`, `ggplot2` and `plotly`

Defines functions palette2vec

Documented in palette2vec

#' @export
#' @rdname gg_palette
palette2vec <- function(palette) {
    if (is.data.frame(palette))
        palette <- setNames(palette$colors, palette$labels)

    return(palette)
}