tests/testthat/helper.R

library(outbreaks)


is_color <- function(x) {
  vapply(x, function(e)
         !is.null(tryCatch(col2rgb(x), error = function(e) NULL)),
         FALSE)
}
Hackout3/epicontacts documentation built on March 2, 2024, 5:40 a.m.