# lecture de la fonction dans le fichier listefonc.r

source(file="listefonc.r",encoding="latin1")

# test de la présence du paramètre

argv <- commandArgs(TRUE)

if (length(argv)==0) {
  cat("\n le nom du fichier est manquant.\n")
  stop(" syntaxe : Rscript --slave listeDesFonctions.r FICHIER\n")

} # finf si

# vérification de l'existence du fichier

nomFic <- argv[1]
stopifnot( file.exists(nomFic) )

# si on arrive ici, c'est qu'il y a un paramètre
# et que le fichier correspondant existe

listeFonctions( nomFic )