[R] clean programming

[cgenolin at u-paris10.fr]

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