R/utils-numeric_converter.R

In lockedata/hubspot: Work with Hubspot data

#' Convert any potential numeric columns to numeric
#'
#' @param dt A tbl
#' @return A tbl
#' @noRd
#'
numeric_converter <- function(dt) {
  dplyr::mutate_if(
    dt,
    ~ sum(is.na(.)) == sum(is.na(suppressWarnings(as.numeric(.)))),
    as.numeric
  )
}