tests/testthat/helper.R

library(outbreaks)


is_color <- function(x) {
  vapply(x, function(e)
         !is.null(tryCatch(col2rgb(x), error = function(e) NULL)),
         FALSE)
}

Try the epicontacts package in your browser

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

epicontacts documentation built on March 31, 2023, 6:49 p.m.