R/utils.R

In erikerhardt/erikmisc: Erik Erhardt's miscellaneous functions for solving complex data analysis workflows

# Based on utils.R from the tidyverse package, https://github.com/tidyverse/tidyverse/blob/main/R/utils.R


msg <- function(..., startup = FALSE) {
  if (startup) {
    if (!isTRUE(getOption("erikmisc.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 erikmisc
#'
#' @param include_self Include erikmisc in the list?
#' @export
#' @examples
#' erikmisc_packages()
erikmisc_packages <- function(include_self = TRUE) {
  raw <- utils::packageDescription("erikmisc")$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, "erikmisc")
  }

  return(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)
  )
}


## This header still exported this function, even without @export
## so I moved it down here to disconnect it from the function.

#' text_col
#'
#' @param x message
#'
#' @return color
#'
#' @importFrom rstudioapi isAvailable
#' @importFrom rstudioapi hasFun
#' @importFrom rstudioapi getThemeInfo
#' @importFrom crayon white
#' @importFrom crayon black