## (gH)   -_-  extraitFichierExcel.r  ;  TimeStamp (unix) : 10 Octobre 2018 vers 17:00

library("gdata") # ou (library("openxlsx") si c'est possible

args         <- commandArgs(trailingOnly = TRUE)
fichierExcel <- args[1]
lesDonnees   <- read.xls(fichierExcel)  # read.xlsx(fichierExcel) avec le package openxlsx

titre <- paste("Extrait des ",nrow(lesDonnees),"lignes et des",ncol(lesDonnees),"colonnes du fichier Excel",nomFicExcel)
cat("\n")
cat(titre,"\n")
cat(paste(rep("-",nchar(titre)),collapse=""),"\n")
cat("\n")

print(head(lesDonnees,n=5))
cat("[...]\n")
print(tail(lesDonnees,n=5))