From cf2c1d4498cd5c01c60aeebe16403c1b2777f078 Mon Sep 17 00:00:00 2001
From: Francois Michonneau <francois.michonneau@gmail.com>
Date: Thu, 18 May 2017 11:31:40 -0400
Subject: [PATCH] [fix #81] replace grid.newpage with grid.null

Using grid.null instead of grid.newpage seems to fix the problem of generating a
first blank page when writing files to a PDF graphical device.
---
 NAMESPACE      | 2 +-
 R/UpSet.plot.R | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 61251e7..e808449 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -17,7 +17,7 @@ import(utils)
 importFrom(grid,gpar)
 importFrom(grid,grid.draw)
 importFrom(grid,grid.layout)
-importFrom(grid,grid.newpage)
+importFrom(grid,grid.null)
 importFrom(grid,legendGrob)
 importFrom(grid,popViewport)
 importFrom(grid,pushViewport)
diff --git a/R/UpSet.plot.R b/R/UpSet.plot.R
index 4e3ac5e..9c8b3bd 100644
--- a/R/UpSet.plot.R
+++ b/R/UpSet.plot.R
@@ -1,4 +1,4 @@
-#' @importFrom grid grid.newpage
+#' @importFrom grid grid.null
 #' @importFrom grid pushViewport
 #' @importFrom grid viewport
 #' @importFrom grid grid.layout
@@ -108,7 +108,7 @@ BaseBoxPlot <- function(box_plot, position, size_plot_height, Main_bar_plot, Mat
     metadata_right <- set_metadata$ncols
     metadata_left <- 1
   }
-  grid.newpage()
+  grid.null()
   if(length(box_plot) == 1){
     pushViewport(viewport(layout = grid.layout(135,matrix_and_mainbar_right)))
   }
@@ -184,7 +184,7 @@ NoAttBasePlot <- function(legend, size_plot_height, Main_bar_plot, Matrix_plot,
     metadata_right <- set_metadata$ncols
     metadata_left <- 1
   }
-  grid.newpage()
+  grid.null()
   if((is.null(legend) == F) && (query_legend != tolower("none"))){
     if(query_legend == tolower("top")){
       pushViewport(viewport(layout = grid.layout(102, matrix_and_mainbar_right)))
@@ -259,7 +259,7 @@ BaseCustomPlot <- function(attribute_plots, plots, position, size_plot_height, M
     custom_top <- custom_top + 5
     custom_bottom <- custom_bottom + 5
   }
-  grid.newpage()
+  grid.null()
   pushViewport(viewport(layout = grid.layout(custom_bottom,matrix_and_mainbar_right)))
   vp = vplayout(bar_top:matrix_bottom, matrix_and_mainbar_left:matrix_and_mainbar_right)
   pushViewport(vp)