R/override.R

In USGS-R/gsplot: Geological Survey Plotting

#' @importFrom utils getFromNamespace
#' @importFrom stats setNames
#' @importFrom methods existsFunction

override <- function(package, name, object, ...) {
  if(!missing(object) && class(object) == "gsplot") {
    fun <- function(object, ...) {
      UseMethod(name, object)
    }
    fun(object, ...)
  } else {
    params <- function_args(package, name, object, ...)
    
    if(package == "gsplot"){
      do.call(paste0(name,".default"), params)
    } else {
      do.call(getFromNamespace(name, package), params)
    }
    
  }
}