Reverting #697

openpharma · Oct 27, 2023 · 4df243a · 4df243a
1 parent a25d682
commit 4df243a
Show file tree

Hide file tree

Showing 4 changed files with 39 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,5 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(plot,gtable)
+S3method(print,gtable)
 export("%>%")
 export(.CohortSizeConst)
 export(.CohortSizeDLT)
@@ -565,6 +567,7 @@ importFrom(graphics,lines)
 importFrom(graphics,matlines)
 importFrom(graphics,matplot)
 importFrom(graphics,plot)
+importFrom(grid,grid.draw)
 importFrom(gridExtra,arrangeGrob)
 importFrom(kableExtra,add_footnote)
 importFrom(kableExtra,add_header_above)

diff --git a/R/helpers.R b/R/helpers.R
@@ -219,6 +219,24 @@ crmPackHelp <- function() {
   utils::help(package = "crmPack", help_type = "html")
 }
 
+## this is the new version, working on the gtable objects:
+##' Plots gtable objects
+##'
+##' @method plot gtable
+##' @param x the gtable object
+##' @param \dots additional parameters for \code{\link[grid]{grid.draw}}
+##'
+##' @importFrom grid grid.draw
+##' @export
+plot.gtable <- function(x, ...) {
+  grid::grid.draw(x, ...)
+}
+
+##' @export
+print.gtable <- function(x, ...) {
+  plot.gtable(x, ...)
+}
+
 ##' Taken from utils package (print.vignette)
 ##'
 ##' @importFrom tools file_ext

diff --git a/man/plot.gtable.Rd b/man/plot.gtable.Rd
diff --git a/man/simulate-DesignGrouped-method.Rd b/man/simulate-DesignGrouped-method.Rd