dup.name()

Thanks to David Scott for noticing a glitch in dup.name().
It should be:

dup.name<-function(name) {
 if(is.character(name))
  return(sum(match(objects(1:length(search())),name,nomatch=0)) > 0)
 cat("Usage: dup.name(name)\n\twhere name is a character string\n")
}

this avoids matching part of the name... 
Jim
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._