Color table cell based on sample id

Color table cell based on sample id

styler_id_conditional(x)

Examples

#> Source Code:
styler_id_conditional
#> function (x) 
#> {
#>     which_sample <- which(x %in% sample_ids)
#>     name <- x[which_sample]
#>     clr_style2 <- clr_set_base %>% clr_darken(shift = 0.3) %>% 
#>         set_names(nm = names(clr_set_base))
#>     colors <- rep("black", length(x))
#>     colors[which_sample] <- clr_style2[name]
#>     list(background = clr_set_alpha[name], color = "black")
#> }
#> <bytecode: 0x55a2e911f718>
#> <environment: namespace:fftidy>