R/utils.R

In MilesMcBain/paint: paint data.frames summaries in colour

is_scalar <- function (x) NROW(x) == 1 && NCOL(x) == 1

sanitise_text <- function(x) {
  gsub("\n|\r|\t", " ", x)
}
#' Colour some text with a {paint} palette
#' 
#' Exported just for fun.
#' 
#' @param msg a length one character vector (not length checked) to be coloured
#'  using the palette set in the `paint_palette` option.
#' @return a character vector with ANSI colour codes embedded. use cat() to see the coloured message.
#' @export
rainbow_text <- function(msg) {
  rainbow <- make_painter(getOption("paint_palette", rainbow_6()))
  exploded <- strsplit(msg, "*")[[1]]
  coloured <- lapply(exploded, rainbow)
  paste0(coloured, collapse = "") 
}

is_infinite_value_safely <- function(x) {
  if (length(x) != 1) return(FALSE)
  tryCatch(is.infinite(x), error = function(e) FALSE)
} 

is_na_value_safely <- function(x) {
  if (!is.vector(x)) return(FALSE)
  if (length(x) != 1) return(FALSE)
  tryCatch(is.na(x), error = function(e) FALSE)
}