diff --git a/NAMESPACE b/NAMESPACE index 12d68ae5..e3211511 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -27,7 +27,9 @@ S3method(ifElse,factor) S3method(ifElse,integer) S3method(ifElse,numeric) S3method(ifElse,ordered) +S3method(plot,jaspPlotWrapper) S3method(print,jaspObjR) +S3method(print,jaspPlotWrapper) S3method(replaceNA,character) S3method(replaceNA,factor) S3method(replaceNA,numeric) diff --git a/R/jaspObjectWrapperMethods.R b/R/jaspObjectWrapperMethods.R index 726046f8..d75bcb98 100644 --- a/R/jaspObjectWrapperMethods.R +++ b/R/jaspObjectWrapperMethods.R @@ -4,3 +4,15 @@ e1$plotObject <- e1$plotObject + e2 return(e1) } + +#' @export +print.jaspPlotWrapper <- function(x, ...) { + decoded <- decodeplot(x$plotObject) + print(decoded, ...) +} + +#' @export +plot.jaspPlotWrapper <- function(x, ...) { + decoded <- decodeplot(x$plotObject) + plot(decoded, ...) +}