Color cell of of column by sample id
styler_id(x)
#> Source Code: styler_id#> function (x) #> { #> clr_style <- clr_set_base %>% clr_alpha(alpha = 0.55) %>% #> set_names(nm = names(clr_set_base)) #> clr_style2 <- clr_set_base %>% clr_darken(shift = 0.3) %>% #> set_names(nm = names(clr_set_base)) #> colors <- clr_style[x] %>% unname() #> colors2 <- clr_style2[x] %>% unname() #> list(background = colors, color = colors2) #> } #> <bytecode: 0x55a2e8c533a0> #> <environment: namespace:fftidy>