Gabor Grothendieck <ggrothendieck at gmail.com> a ??crit? :
Its a FAQ
Oups... Sorry for that.
Just to close the topic :
cleanProg <- function(name,tolerance){
if(length(findGlobals(get(name),FALSE)$variables) > tolerance){
cat("More than",tolerance,"global variable(s) in ",name,"\a\n")
}
}
cleanProg(fun,0)
----------------------------------------------------------------
Ce message a ete envoye par IMP, grace a l'Universite Paris 10 Nanterre