R/clean.args.R

Defines functions remove.args clean.args

Documented in clean.args remove.args

clean.args<-function(argstr,fn,exclude.repeats=FALSE,exclude.other=NULL,
 dots.ok=TRUE) {

 fnargs<-names(formals(fn))
 if(length(argstr) > 0 && !("..." %in% fnargs && dots.ok)) {
  badargs<-names(argstr)[!sapply(names(argstr),"%in%",c(fnargs,""))]
  for(i in badargs) argstr[[i]]<-NULL
 }
 if(exclude.repeats) {
  ntab<-table(names(argstr))
  badargs<-names(ntab)[ntab > 1 & names(ntab) != ""]
  for (i in badargs) argstr[[i]]<-NULL
 }
 for(i in exclude.other) argstr[[i]]<-NULL
 argstr
}

remove.args<-function(argstr,fn) {
 fnargs <- names(formals(fn))
 argstr[!(names(argstr) %in% fnargs)]
}

Try the plotrix package in your browser

Any scripts or data that you put into this service are public.

plotrix documentation built on Nov. 10, 2023, 5:07 p.m.