R/crayon_utils.R

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

lapply_safely <- function(lst, funs) {
	lapply(lst, function(x) {
		if (is.null(x)) return(x)
		if (is.vector(x) && length(x) == 1) {
      if (is.na(x) || is.infinite(x)) return(x)
		}
		funs(x)
	})
}

strip_style_safely <- function(x) lapply_safely(x, crayon::strip_style)