par -> graphics::par

Author: StuartWheater

R/ds.contourPlot.R

@@ -121,8 +121,8 @@ ds.contourPlot <- function(x=NULL, y=NULL, type='combine', show='all', numints=2
   }
 
   # Save par and setup reseting of par values
-  old_par <- par(no.readonly = TRUE)
-  on.exit(par(old_par), add = TRUE)
+  old_par <- graphics::par(no.readonly = TRUE)
+  on.exit(graphics::par(old_par), add = TRUE)
 
   # check if the input objects are defined in all the studies
   isDefined(datasources, x)

R/ds.heatmapPlot.R

@@ -170,8 +170,8 @@ ds.heatmapPlot <- function(x=NULL, y=NULL, type="combine", show="all", numints=2
   }
 
   # Save par and setup reseting of par values
-  old_par <- par(no.readonly = TRUE)
-  on.exit(par(old_par), add = TRUE)
+  old_par <- graphics::par(no.readonly = TRUE)
+  on.exit(graphics::par(old_par), add = TRUE)
 
   # check if the input objects are defined in all the studies
   isDefined(datasources, x)

R/ds.histogram.R

@@ -168,8 +168,8 @@ ds.histogram <- function(x=NULL, type="split", num.breaks=10, method="smallCells
   }
 
   # Save par and setup reseting of par values
-  old_par <- par(no.readonly = TRUE)
-  on.exit(par(old_par), add = TRUE)
+  old_par <- graphics::par(no.readonly = TRUE)
+  on.exit(graphics::par(old_par), add = TRUE)
 
   # check if the input object is defined in all the studies
   isDefined(datasources, x)

R/ds.scatterPlot.R

@@ -148,8 +148,8 @@ ds.scatterPlot <- function(x=NULL, y=NULL, method='deterministic', k=3, noise=0.
   }
 
   # Save par and setup reseting of par values
-  old_par <- par(no.readonly = TRUE)
-  on.exit(par(old_par), add = TRUE)
+  old_par <- graphics::par(no.readonly = TRUE)
+  on.exit(graphics::par(old_par), add = TRUE)
 
   # check if the input objects are defined in all the studies
   isDefined(datasources, x)