From c9722fcc8e0fa3234c20ada912de61797936c5bb Mon Sep 17 00:00:00 2001
From: John Kirkpatrick <133956382+Puzzled-Face@users.noreply.github.com>
Date: Tue, 10 Oct 2023 08:47:10 +0100
Subject: [PATCH] Remove plot.gtable and print.gtable (#697)

* Remove plot.gtable and print.gtable

* Fix _pkgdown.yaml
---
 NAMESPACE          |  3 ---
 R/helpers.R        | 20 --------------------
 _pkgdown.yaml      |  1 -
 man/plot.gtable.Rd | 16 ----------------
 4 files changed, 40 deletions(-)
 delete mode 100644 man/plot.gtable.Rd

diff --git a/NAMESPACE b/NAMESPACE
index b6e7c10b3..8225f5d32 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,7 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
-S3method(plot,gtable)
-S3method(print,gtable)
 export("%>%")
 export("%~%")
 export(.CohortSizeConst)
@@ -524,7 +522,6 @@ importFrom(graphics,lines)
 importFrom(graphics,matlines)
 importFrom(graphics,matplot)
 importFrom(graphics,plot)
-importFrom(grid,grid.draw)
 importFrom(grid,grid.newpage)
 importFrom(grid,pushViewport)
 importFrom(grid,viewport)
diff --git a/R/helpers.R b/R/helpers.R
index 3a9f7dafc..42d7a4eda 100644
--- a/R/helpers.R
+++ b/R/helpers.R
@@ -241,26 +241,6 @@ 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, ...)
-}
-
-
 #' Multiple plot function
 #'
 #' ggplot objects can be passed in ..., or to plotlist (as a list of ggplot objects).
diff --git a/_pkgdown.yaml b/_pkgdown.yaml
index 33dc7e0f6..51bdc645a 100644
--- a/_pkgdown.yaml
+++ b/_pkgdown.yaml
@@ -436,7 +436,6 @@ reference:
       - plot,Samples,ModelEff-method
       - plot,Samples,ModelTox-method
       - plot,SimulationsSummary,missing-method
-      - plot.gtable
       - plotDualResponses
       - plotGain
       - probit
diff --git a/man/plot.gtable.Rd b/man/plot.gtable.Rd
deleted file mode 100644
index 10299370e..000000000
--- a/man/plot.gtable.Rd
+++ /dev/null
@@ -1,16 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/helpers.R
-\name{plot.gtable}
-\alias{plot.gtable}
-\title{Plots gtable objects}
-\usage{
-\method{plot}{gtable}(x, ...)
-}
-\arguments{
-\item{x}{the gtable object}
-
-\item{\dots}{additional parameters for \code{\link[grid]{grid.draw}}}
-}
-\description{
-Plots gtable objects
-}