sits_colors_set: Function to set sits color table

View source: R/sits_colors.R

sits_colors_setR Documentation

Function to set sits color table

Description

Sets a color table

Usage

sits_colors_set(color_tb)

Arguments

color_tb

New color table

Value

A modified sits color table

Author(s)

Gilberto Camara, gilberto.camara@inpe.br

Examples

if (sits_run_examples()) {
    # Define a color table based on the Anderson Land Classification System
    us_nlcd <- tibble::tibble(name = character(), color = character())
    us_nlcd <- us_nlcd |>
        tibble::add_row(name = "Urban Built Up", color = "#85929E") |>
        tibble::add_row(name = "Agricultural Land", color = "#F0B27A") |>
        tibble::add_row(name = "Rangeland", color = "#F1C40F") |>
        tibble::add_row(name = "Forest Land", color = "#27AE60") |>
        tibble::add_row(name = "Water", color = "#2980B9") |>
        tibble::add_row(name = "Wetland", color = "#D4E6F1") |>
        tibble::add_row(name = "Barren Land", color = "#FDEBD0") |>
        tibble::add_row(name = "Tundra", color = "#EBDEF0") |>
        tibble::add_row(name = "Snow and Ice", color = "#F7F9F9")

    # Load the color table into `sits`
    sits_colors_set(us_nlcd)

    # Show the new color table used by sits
    sits_colors_show()
}

sits documentation built on Nov. 2, 2023, 5:59 p.m.