Capture user par

ldecicco-USGS · ldecicco-USGS · commit 1bed62c18998 · 2016-11-08T15:39:48.000-06:00
diff --git a/R/par.R b/R/par.R
@@ -38,3 +38,7 @@ par.gsplot <- function(object, ...){
   return(object)
 }
 
+par.list <- function(...){
+  graphics::par(...)
+  gsconfig$original.par <- par(no.readonly = TRUE)
+}

Original file line number	Diff line number	Diff line change
`@@ -38,3 +38,7 @@ par.gsplot <- function(object, ...){`
`38`	`38`	`return(object)`
`39`	`39`	`}`
`40`	`40`
	`41`	`+par.list <- function(...){`
	`42`	`+ graphics::par(...)`
	`43`	`+ gsconfig$original.par <- par(no.readonly = TRUE)`
	`44`	`+}`