R/utils-epoch_converter.R

In lockedata/hubspot: Work with Hubspot data

#' Convert any potential epoch columns to datetimes
#'
#' @param dt A tbl
#' @return A tbl
#' @noRd
#'
epoch_converter <- function(dt) {
  tibble::as_tibble(
    lapply(dt, function(x) {
      if (is.factor(x) | is.character(x) | is.list(x)) {
        x
      } else if (suppressWarnings(min(x, na.rm = TRUE)) > 1e+10) {
        as.POSIXct(x / 1000, origin = "1970-01-01")
      } else {
        x
      }
    })
  )
}