## (gH)   -_-  decritFichierExcel.r  ;  TimeStamp (unix) : 24 Septembre 2018 vers 13:12

#########################################################################
#
# attention, ce programme s'utilise en ligne de commandes !
#
#########################################################################

library("gdata")                   # ou (library("openxlsx") si c'est possible
library("attempt")
options(width=230)                 # il y a parfois beaucoup de colonnes sous Excel...
source("decritFichierExcel-inc.r") # sous-programmes

#########################################################################
#
# programme principal
#
#########################################################################

args   <- commandArgs(trailingOnly = TRUE)
argc   <- length(args)
erreur <- 0

if (argc<1) {

  erreur    <- 1
  cat("\nNombre de paramètres incorrect.\n")
  cat("Vous devez fournir le nom du fichier Excel à décrire.\n\n")

} else {

## 2. vérification de l'existence du fichier

fichierExcel <- args[1]

if (!file.exists(fichierExcel)) {

   msgErreur <- paste("Fichier modèle \"",fichierExcel,"\" non vu.\n")
   cat(paste("Vous avez fourni",fichierExcel," comme nom de fichier Excel.\n"))
   cat(paste("Mais... ce fichier n'existe pas dans le répertoire courant ",getwd()),"\n")

} # fin si test sur l'existence du fichier

} # fin si sur argc

if (erreur>0) {
   stop("Impossible de continuer. STOP\n")
} # fin si sur erreur

## 3. si on arrive ici, on peut tenter l'aventure !

cats(paste("Description du fichier",fichierExcel))

erreur <- 0

try_catch(
  ongletData <- read.xls(fichierExcel) , # read.xlsx(fichierExcel) avec le package openxlsx
  .e = function(e) {
         cat(paste("Problème de lecture dans le fichier Excel ",fichierExcel,". Abandon des calculs.STOP.\n\n",sep=""))
         stop("Impossible de continuer. STOP\n")
       } # fin de fonction anonyme
) # fin de try_catch

cat(paste(nrow(ongletData),"lignes et",ncol(ongletData),"colonnes lues dans ce fichier.\n\n"))

numNom               <- sapply(FUN=toColExcel,X=1:ncol(ongletData))
descData             <- lesColonnes(ongletData,ordered=FALSE,envar=TRUE,print=FALSE)
descData             <- cbind(descData[,1],numNom,descData[,2:ncol(descData)])
names(descData)[1:2] <- c("Numéro","Colonne Excel")
print(descData)

# fin de script decritFichierExcel.r