R/fcot_type_character.R

In SebastienBoutry/CheckOfTable: Check of table (vérification du tableau)

#' Check string type of columns
#'
#' @param data tableau
#' @param noms_colonnes les nom des colonnes dont on doit verifier le type
#' @param table_orig nom du tableau
#'
#' @return
#' @export
#' @import magrittr
#'
#' @examples
#' obj <- data.frame(a=1:5)
#' fcot_type_character(obj,noms_colonnes=c("a"),table_orig="table test")
#'
fcot_type_character <- function(data,noms_colonnes,table_orig){
  ##
  verif <- which(
    sapply(noms_colonnes,
           function(i)
             ! is.character(data %>% dplyr::pull(i)))
  )
  ##
  if(length(verif)==0){
    test <- tibble::tibble(noms_colonnes_non_conforme="",
                   test="2.1",
                   valeur_test="oui",
                   nom_test="colnames_type",
                   table_orig=table_orig,
                   # sortie=data.frame(
                   test_precis="2.1.1",
                   # test="format_data.frame",
                   nom_test_precis="colnames_type_character",
                   message=paste0("")
                   # )
    )
  }else{
    test <- tibble::tibble(noms_colonnes_non_conforme=noms_colonnes[verif],
                   test="2.1",
                   valeur_test="non",
                   nom_test="colnames_type",
                   table_orig=table_orig,
                   test_precis=paste0("2.1.1"),
                   # test="format_data.frame",
                   nom_test_precis="colnames_type_character") %>%
      dplyr::mutate(test_precis=paste0("2.2.1",noms_colonnes_non_conforme),
             message=paste0("La variable suivante ",
                            noms_colonnes_non_conforme,
                            " n'est pas dans le bon type de données (chaîne de caractères).")
      )
  }
  return(test %>% dplyr::select(-noms_colonnes_non_conforme))
}