R/utils.R

Defines functions style_grey invert healthyverse_packages text_col msg

Documented in healthyverse_packages

msg <- function(..., startup = FALSE) {
    if (startup) {
        if (!isTRUE(getOption("healthyverse.quiet"))) {
            packageStartupMessage(text_col(...))
        }
    } else {
        message(text_col(...))
    }
}

text_col <- function(x) {
    # If RStudio not available, messages already printed in black
    if (!rstudioapi::isAvailable()) {
        return(x)
    }

    if (!rstudioapi::hasFun("getThemeInfo")) {
        return(x)
    }

    theme <- rstudioapi::getThemeInfo()

    if (isTRUE(theme$dark)) crayon::white(x) else crayon::black(x)

}

#' List all packages in the healthyverse
#'
#' @return A list of the healthyverse packages
#' @param include_self Include healthyverse in the list?
#' @export
#' @examples
#' healthyverse_packages()
healthyverse_packages <- function(include_self = TRUE) {
    raw <- utils::packageDescription("healthyverse")$Imports
    imports <- strsplit(raw, ",")[[1]]
    parsed <- gsub("^\\s+|\\s+$", "", imports)
    names <- vapply(strsplit(parsed, "\\s+"), "[[", 1, FUN.VALUE = character(1))

    if (include_self) {
        names <- c(names, "healthyverse")
    }

    names
}

invert <- function(x) {
    if (length(x) == 0) return()
    stacked <- utils::stack(x)
    tapply(as.character(stacked$ind), stacked$values, list)
}


style_grey <- function(level, ...) {
    crayon::style(
        paste0(...),
        crayon::make_style(grDevices::grey(level), grey = TRUE)
    )
}

Try the healthyverse package in your browser

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

healthyverse documentation built on Feb. 18, 2021, 1:10 a.m.