R/utils.R

Defines functions isDark

isDark <- function(colr) {
    apply(
        X = grDevices::col2rgb(colr) * c(299L, 587L, 114L),
        FUN = sum,
        MARGIN = 2L
    ) /
        1000L <
        123L
}

Try the IssueTrackeR package in your browser

Any scripts or data that you put into this service are public.

IssueTrackeR documentation built on June 21, 2026, 1:07 a.m.