hi friend! 👋 thanks for this package, it's very very useful! right

Make `clr_` functions work within mutate? about prismatic HOT 4 CLOSED

sharlagelfand commented on June 9, 2024

Make `clr_` functions work within mutate?

from prismatic.

Comments (4)

EmilHvitfeldt commented on June 9, 2024 2

It took a while but It should work now!

(the mutate() part of it was fixed when I looked at it just now so it might have been fixed in dplyr, but rowwise() was still broken, which is fixed now)

library(prismatic)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

x <- c("#fbbcb8", "#bfdff6")
clr_darken(x)
#> <colors>
#> #CE170CFF #1B7BC0FF

tibble(color = x) %>%
  mutate(darker = clr_darken(color))
#> # A tibble: 2 x 2
#>   color   darker   
#>   <chr>   <colors> 
#> 1 #fbbcb8 #CE170CFF
#> 2 #bfdff6 #1B7BC0FF


tibble(color = x) %>%
  rowwise() %>%
  mutate(darker = clr_darken(color))
#> # A tibble: 2 x 2
#> # Rowwise: 
#>   color   darker   
#>   <chr>   <colors> 
#> 1 #fbbcb8 #CE170CFF
#> 2 #bfdff6 #1B7BC0FF

^{Created on 2020-08-12 by the reprex package (v0.3.0)}

from prismatic.

EmilHvitfeldt commented on June 9, 2024

hello 👋

It appears I might have messed up somewhere when creating the vector class. As a temporary fix you should be able to unclass() the result inside the mutate() call 😄

library(prismatic)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

x <- c("#fbbcb8", "#bfdff6")
clr_darken(x)
#> <colors>
#> #CE170CFF #1B7BC0FF

colours <- tibble(color = x) %>%
  mutate(darker = unclass(clr_darken(color)))

colours
#> # A tibble: 2 x 2
#>   color   darker   
#>   <chr>   <chr>    
#> 1 #fbbcb8 #CE170CFF
#> 2 #bfdff6 #1B7BC0FF