R/checkDico.R

In Epiconcept-Paris/STRAP-epiuf: Epiconcept Team Utility Functions for STRAP Project

#
# Project Name : STRAP
# Script Name  : checkDico
# GitHub repo  : SARI-VEBIS-OLD
# Summary      : developement of checkDico function
# Date created : 25/02/2022
# Author       : JHD
# Date reviewed:
# Reviewed by  :

# Description --------------------------------------------------------------





# Changes Log --------------------------------------------------------------
#  
# 
# 

# START of SCRIPT  --------------------------------------------------------


#' checkDico
#'
#' @param data Dataset which contain \code{varname}
#' @param varname The variable to chack against dico 
#' @param dicoCode A dico code list 
#'
#' @return text outputs
#' @export
#'

checkDico <- function(data, varname, dicoCode) {
  
  s_op <- deparse(substitute(varname))
  # if varname is a variable which contain char, we use content of varname
  tryCatch(
    if (is.character(varname)) {
      s_op <- varname
    }
    , error = function(c) { }
  )
  varname <- s_op
  # the regmatches took too mutch time ! 
  varUnique <- unique(data[, varname])
  varNotDico <- setdiff(varUnique, dicoCode)
  varNotDico <- suppressWarnings(as.numeric(varNotDico))
  varNotDico <- varNotDico[!is.na(varNotDico)]
  
  if (length(varNotDico)>0) {
    catret(varname, "contains:" , varUnique, ", Code is:", dicoCode)
  }else{
    catret(varname, "matches dico")
  }
}




# END of SCRIPT  --------------------------------------------------------