R/internal.R

In mayoverse/dq: Tools for Data Quality

is.numericish <- function(x)
  (is.numeric(x) || inherits(x, "difftime") || inherits(x, "Date") || inherits(x, "POSIXt")) && length(unique(x)) >= getOption("dq.min.unique", 10)

fix.dates <- function(dat)
{
  idx <- vapply(dat, function(x) inherits(x, "Date") || inherits(x, "POSIXt") || inherits(x, "difftime"), NA)
  dat[idx] <- lapply(dat[idx], as.numeric)
  dat
}