#' @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)
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.