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

nbna <- function(ldf) { # ldf : liste de fichiers

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

library(gdata)

# si pas de paramètre, on utilise le gestionnaire de fichiers
# pour sélectionner les fichiers à utiliser

if (missing(ldf)) { ldf <- file.choose() }

# pour chacun des fichiers présents dans ld, on affiche le nombre de NA par colonne

sapply(
 X=ldf,
 F=function(nomFic) {
   cat("Fichier : ",nomFic,"\n")
   dat <- read.xls(nomFic)
   print( apply(X=dat,F=function(x) { return(sum(is.na(x))) },M=2) )
   return(invisible(NULL)) }
) # fin de sapply

} # fin de fonction nbna

# exemples d'utilisation :

res <- nbna("essai.xls")
liste <- c("essai.xls","war2.xls")
res <- nbna(liste)

# not run (comme ils disent) :
#  nbna()