R/base16colorout.R

In walshc/base16colorout: Colorize R output according to a base 16 colorscheme

base16colorout <- function(scheme, verbose = TRUE) {
  base16 <- base16[base16$scheme == scheme, ]
  if (nrow(base16) == 0) {
    data(base16)
    msg <- paste("Invalid 'scheme'. Must be one of", unique(base16$scheme))
    stop(msg)
  }
  colorout::setOutputColors256(
    normal   = base16[base16$type == "normal",   ]$colorout.number,
    negnum   = base16[base16$type == "negnum",   ]$colorout.number,
    zero     = base16[base16$type == "zero",     ]$colorout.number,
    number   = base16[base16$type == "number",   ]$colorout.number,
    date     = base16[base16$type == "date",     ]$colorout.number,
    string   = base16[base16$type == "string",   ]$colorout.number,
    const    = base16[base16$type == "const",    ]$colorout.number,
    false    = base16[base16$type == "false",    ]$colorout.number,
    true     = base16[base16$type == "true",     ]$colorout.number,
    infinite = base16[base16$type == "infinite", ]$colorout.number,
    stderror = base16[base16$type == "stderror", ]$colorout.number,
    warn     = base16[base16$type == "warn",     ]$colorout.number,
    error    = base16[base16$type == "error",    ]$colorout.number,
    verbose  = verbose)
}