R/prep_dq_data_type_of.R

In dataquieR: Data Quality in Epidemiological Research

#' Get the dataquieR `DATA_TYPE` of `x`
#'
#' @param x object to define the dataquieR data type of
#'
#' @return the dataquieR data type as listed in `DATA_TYPES`
#' @seealso [`DATA_TYPES_OF_R_TYPE`]
#' @export
prep_dq_data_type_of <- function(x) {
  r <- head(unique(intersect(names(DATA_TYPES_OF_R_TYPE), class(x))), 1)

  if (length(r) != 1) {
    NULL
  } else {
    if (r %in% c("numeric", "float", "double")) {
      if (all(util_is_integer(x))) {
        r <- "integer"
      }
    }

    tolower(DATA_TYPES_OF_R_TYPE[[r]])
  }
}