Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/dreamRs/colorscale
Create a color scale from a single color
https://github.com/dreamRs/colorscale
addin color color-scale r rstudio-addin shiny
Last synced: 3 months ago
JSON representation
Create a color scale from a single color
- Host: GitHub
- URL: https://github.com/dreamRs/colorscale
- Owner: dreamRs
- Created: 2018-08-27T17:28:19.000Z (about 6 years ago)
- Default Branch: master
- Last Pushed: 2020-04-16T15:11:43.000Z (over 4 years ago)
- Last Synced: 2024-05-21T02:10:46.676Z (6 months ago)
- Topics: addin, color, color-scale, r, rstudio-addin, shiny
- Language: R
- Size: 98.6 KB
- Stars: 80
- Watchers: 4
- Forks: 4
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
- jimsghstars - dreamRs/colorscale - Create a color scale from a single color (R)
README
# colorscale
> R6 api for [chroma.js](https://github.com/gka/chroma.js) & an RStudio add-in to create a color scale from a single color.
[](https://www.tidyverse.org/lifecycle/#experimental)
[](https://github.com/dreamRs/colorscale/actions)
[](https://travis-ci.com/dreamRs/colorscale)
## Installation
Install development version from GitHub with:
``` r
remotes::install_github("dreamRs/colorscale")
```
## RStudio add-in
An add-in to create a color palette from a single color (largely inspired by https://github.com/hihayk/scale).
To launch the gadget use the "Addins" menu in RStudio or:
```r
colorscale::addin_color_scale()
```
## chroma.js API
Create a R6 class to access chroma.js methods:
```r
library(colorscale)
ch <- chroma$new("hotpink")
ch$darken(2)
ch$eval()
#> [1] "#930058"
hsl <- chroma$new()
hsl$chroma.hsl(330, 1, 0.6)
view_cols(hsl$eval())
hsl$darken(seq(0.2, 3, 0.2))
view_cols(hsl$eval())
```
Some methods have wrapper for easier use:
```r
# Mixes two colors
chroma_mix(color1 = "red", color2 = "blue")
#> [1] "#800080"
# Average between colors
chroma_avg(colors = c("#ddd", "yellow", "red", "teal"))
#> [1] "#b79757"
# Random colors
chroma_random()
#> [1] "#650a0c"
chroma_random(10)
#> [1] "#63e24b" "#909363" "#5a3d7d" "#41a505" "#8f5f13" "#df6535" "#da43d3" "#04fc8f" "#6ee31c" "#ac5c94"
# Euclidean distance between two colors
chroma_distance("#fff", "#ff0")
#> [1] 96.94758
chroma_distance("#fff", "#ff0", "rgb")
#> [1] 255
```
Convert color to specific color space:
```r
ch <- chroma$new("orange")
ch$hex()
#> [1] "#ffa500"
ch$rgb()
#> [1] 255 165 0
ch$hsl()
#> [1] 38.82353 1.00000 0.50000
ch$lab()
#> [1] 74.93565 23.93317 78.94978
ch$gl()
#> [1] 1.0000000 0.6470588 0.0000000 1.0000000
ch$css()
#> [1] "rgb(255,165,0)"
```