## (gH)   -_-  decritFichier-inc.r  ;  TimeStamp (unix) : 10 Octobre 2018 vers 17:43

#################################################################

cats <- function(chen="",soulign="=") { # sert à souligner

#################################################################

   cat("\n")
   cat(chen,"\n")
   cat(copies(soulign,nchar(chen)),"\n")
   cat("\n")

} # fin de fonction cats

#################################################################

copies <- function(string,nrep=0) {

#################################################################

# renvoie n copies de la chaine string

   res <- ""
   if (nrep>0) { for (idc in (1:nrep)) { res <- paste(res,string,sep="") } }
   return(res)

} # fin de fonction copies

###################################################

toColExcel <- function(numCol) {

####################################################

# convertit un numéro de colonne, comme 30
# en une notation Excel, soit ici AD

   if (numCol<1)  { return("") }

   res <- c()
   while(numCol>0) {
       rst    <- (numCol-1) %% 26
       res    <- c(rst,res)
       numCol <- (numCol-rst) %/% 26
   } # fin tant que

   return(paste(LETTERS[res+1],collapse=""))

} # fin de fonction toColExcel

#################################################################

lesColonnes <- function(df,ordered=TRUE,envar=FALSE,print=TRUE,title="") {

#################################################################

# lesColonnes(df)               : les variables sont par ordre alphabétique
# lesColonnes(df,ordered=FALSE) : les variables sont par numéro de colonne croissant
# si envar=TRUE on renvoie la variable du tableau des colonnes
# si print=TRUE on affiche

   nbc  <- ncol(df)
   nbl  <- nrow(df)
   if (print) {
      cat("Voici l'analyse des ",nbc,"colonnes (stat. pour ",nbl," lignes en tout)")
      if (title!="") {
        cat(" pour ",title)
      } # fin si
      cat("\n\n")
   } # fin si

   noms <- names(df)
   nbvs <- rep(NA,nbc)
   mins <- rep(NA,nbc)
   maxs <- rep(NA,nbc)
   dist <- rep(NA,nbc)
   miss <- rep(NA,nbc)
   miss <- rep(NA,nbc)
   typs <- rep("",nbc)
   ddc <- cbind((1:nbc),nbvs,mins,maxs,dist,miss,typs)
   row.names(ddc) <- noms
   colnames(ddc)  <- c("Num","NbVal","Min","Max","Distinct","Manquantes","Type")
   pdc <- 1:nbc
   for (idc in pdc) {
      laCol      <- df[,idc]
      laCol      <- laCol[!is.na(laCol)]
      ddc[idc,2] <- length(laCol)
      if (length(laCol)==0) {
          ddc[idc,3] <- NA
          ddc[idc,4] <- NA
      } else {
         if (is.factor(laCol)) {
            lacoln <- as.numeric(laCol)
            ddc[idc,3] <- levels(laCol)[min(lacoln)]
            ddc[idc,4] <- levels(laCol)[max(lacoln)]
         } else {
            if (is.numeric(laCol)) {
               ddc[idc,3] <- sprintf("%0.3f",min(laCol))
               ddc[idc,4] <- sprintf("%0.3f",max(laCol))
            } else {
               ddc[idc,3] <- substr(min(laCol),1,10)
               ddc[idc,4] <- substr(max(laCol),1,10)
            } # fin si
         } # fin si
      } # fin si
      ddc[idc,5] <- length(unique(laCol))
      ddc[idc,6] <- sum(is.na(df[,idc]))
      ddc[idc,7] <- paste(class(laCol),collapse=" ")
   } # fin pour idc

   if (ordered) { # tri par ordre alphabétique des noms de variables
     idx <- order(noms)
     ddc <- ddc[idx,]
   } # fin si

   if (print) {
     print.data.frame(as.data.frame(ddc),quote=FALSE,row.names=TRUE)
     cat("\n")
   } # fin si

   if (envar) {
      return(as.data.frame(ddc))
   } else {
      return()
   } # fin de si

} # fin de fonction lesColonnes