diff options
| -rw-r--r-- | R/idframe.R | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/R/idframe.R b/R/idframe.R index 59a57eb..f38b94e 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -232,7 +232,6 @@ plot.idfrd <- function(x,col="steelblue",lwd=1){ # 3 will go all the way across the bottom. # multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL) { - library(grid) # Make a list from the ... arguments and plotlist plots <- c(list(...), plotlist) @@ -253,8 +252,8 @@ multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL) { } else { # Set up the page - grid.newpage() - pushViewport(viewport(layout = grid.layout(nrow(layout), ncol(layout)))) + grid::grid.newpage() + grid::pushViewport(viewport(layout = grid.layout(nrow(layout), ncol(layout)))) # Make each plot, in the correct location for (i in 1:numPlots) { |