R/par_arguments.R

In USGS-R/gsplot: Geological Survey Plotting

formal_arguments <- function(arguments, def.funs, keep.names=NULL){
  if (length(def.funs) > 1)
    formal.names <- unique(unlist(lapply(def.funs, function(x)names(formals(x)))))
  else 
    formal.names <- names(formals(def.funs))
  args = arguments[names(arguments) %in% formal.names | names(arguments) %in% keep.names]
  if (length(args) > 0)
    return(args)
  else 
    NULL
}