Save and restore 'par' values

Author: StuartWheater

R/ds.contourPlot.R

@@ -120,6 +120,10 @@ ds.contourPlot <- function(x=NULL, y=NULL, type='combine', show='all', numints=2
     stop("y=NULL. Please provide the names of two numeric vectors!", call.=FALSE)
   }
 
+  # Save par and setup reseting of par values
+  old_par <- par(no.readonly = TRUE)
+  on.exit(par(old_par), add = TRUE)
+
   # check if the input objects are defined in all the studies
   isDefined(datasources, x)
   isDefined(datasources, y)

R/ds.heatmapPlot.R

@@ -169,6 +169,10 @@ ds.heatmapPlot <- function(x=NULL, y=NULL, type="combine", show="all", numints=2
     stop("y=NULL. Please provide the names of the 2nd numeric vector!", call.=FALSE)
   }
 
+  # Save par and setup reseting of par values
+  old_par <- par(no.readonly = TRUE)
+  on.exit(par(old_par), add = TRUE)
+
   # check if the input objects are defined in all the studies
   isDefined(datasources, x)
   isDefined(datasources, y)

R/ds.histogram.R

@@ -167,6 +167,10 @@ ds.histogram <- function(x=NULL, type="split", num.breaks=10, method="smallCells
     stop("Please provide the name of the input vector!", call.=FALSE)
   }
 
+  # Save par and setup reseting of par values
+  old_par <- par(no.readonly = TRUE)
+  on.exit(par(old_par), add = TRUE)
+
   # check if the input object is defined in all the studies
   isDefined(datasources, x)
 

R/ds.scatterPlot.R

@@ -147,6 +147,10 @@ ds.scatterPlot <- function(x=NULL, y=NULL, method='deterministic', k=3, noise=0.
     stop("The 'datasources' were expected to be a list of DSConnection-class objects", call.=FALSE)
   }
 
+  # Save par and setup reseting of par values
+  old_par <- par(no.readonly = TRUE)
+  on.exit(par(old_par), add = TRUE)
+
   # check if the input objects are defined in all the studies
   isDefined(datasources, x)
   isDefined(datasources, y)