Message-ID: <20071218122012.cbp2ex0rkg8s840k@icare.u-paris10.fr>
Date: 2007-12-18T11:20:12Z
From: Christophe Genolini
Subject: clean programming
In-Reply-To: <971536df0712160641q35edc1d9v2b1f1b4833bf88f5@mail.gmail.com>
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