# Intro-to-seecolor-package

    Warning: replacing previous import 'lifecycle::last_warnings' by
    'rlang::last_warnings' when loading 'tibble'
    Warning: replacing previous import 'ellipsis::check_dots_unnamed' by
    'rlang::check_dots_unnamed' when loading 'tibble'
    Warning: replacing previous import 'ellipsis::check_dots_used' by
    'rlang::check_dots_used' when loading 'tibble'
    Warning: replacing previous import 'ellipsis::check_dots_empty' by
    'rlang::check_dots_empty' when loading 'tibble'
    Warning: replacing previous import 'lifecycle::last_warnings' by
    'rlang::last_warnings' when loading 'pillar'
    Warning: replacing previous import 'ellipsis::check_dots_unnamed' by
    'rlang::check_dots_unnamed' when loading 'pillar'
    Warning: replacing previous import 'ellipsis::check_dots_used' by
    'rlang::check_dots_used' when loading 'pillar'
    Warning: replacing previous import 'ellipsis::check_dots_empty' by
    'rlang::check_dots_empty' when loading 'pillar'

## 1. Use the cursor to select object to print in the console.

    # Highlight objects by cursor to show the contained colors
    pick_color()

    # Change output styles, "ribbon" or "mosaic"
    pick_color(type = "r")

    # Change the length of the color blocks
    pick_color(blank.len = 1)

Pick colors

## 2. Use `print_color` to print color literals, palettes and ggplot2 objects.

### Note: the colors may appear not distingushable in the html version, but they always work fine in console.

    print_color(c("red", "navy", "pink", "#E58700", "limegreen"))

    #>
    #>  ------ c red navy pink #E58700 limegreen ------
    #>

    print_color(c("red", "navy", "pink", "#E58700", "limegreen"),
                type = "r")

    #>
    #>  ------ c red navy pink #E58700 limegreen ------
    #> red
    #> navy
    #> pink
    #> #E58700
    #> limegreen

    print_color(palette(rainbow(6)), blank.len = 1)

    #>
    #>  ------ palette rainbow(6) ------
    #>

    print_color(palette(rainbow(6)), type = 'r')

    #>
    #>  ------ palette rainbow(6) ------
    #> red
    #> yellow
    #> green
    #> cyan
    #> blue
    #> magenta

    p1 <- ggplot(mpg) +
      geom_point(aes(displ, cyl, color = manufacturer))
    print_color(p1)

    #>
    #>  ---ggplot object---
    #>

    print_color(p1, type = 'r')

    #> ---ggplot object---
    #> #F8766D
    #> #E58700
    #> #C99800
    #> #A3A500
    #> #6BB100
    #> #00BA38
    #> #00BF7D
    #> #00C0AF
    #> #00BCD8
    #> #00B0F6
    #> #619CFF
    #> #B983FF
    #> #E76BF3
    #> #FD61D1
    #> #FF67A4

## 3. Use `open_sample()` to open a sample file to have an instant try.

    # Open the pre-defined test file
    open_sample()