Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
suppressMessages({ library(seecolor) library(ggplot2) library(fansi) library(crayon) }) old.hooks <- fansi::set_knit_hooks(knitr::knit_hooks) options(crayon.enabled=TRUE)
# 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)
print_color
to print color literals, palettes and ggplot2 objects.print_color(c("red", "navy", "pink", "#E58700", "limegreen")) print_color(c("red", "navy", "pink", "#E58700", "limegreen"), type = "r") print_color(palette(rainbow(6)), blank.len = 1) print_color(palette(rainbow(6)), type = 'r') p1 <- ggplot(mpg) + geom_point(aes(displ, cyl, color = manufacturer)) print_color(p1) print_color(p1, type = 'r')
open_sample()
to open a sample file to have an instant try.# Open the pre-defined test file open_sample()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.