[Dplr-commits] r1100 - pkg/dplR/R

[noreply at r-forge.r-project.org]

Author: andybunn
Date: 2018-05-23 08:25:05 +0200 (Wed, 23 May 2018)
New Revision: 1100

Modified:
   pkg/dplR/R/plotRings.R
Log:
adjusting par on plotRings

Modified: pkg/dplR/R/plotRings.R
===================================================================
--- pkg/dplR/R/plotRings.R	2018-05-22 20:57:28 UTC (rev 1099)
+++ pkg/dplR/R/plotRings.R	2018-05-23 06:25:05 UTC (rev 1100)
@@ -87,7 +87,11 @@
   
   # # # # # # # # # # # # # # # # # # # ## # # # # # # # # # # # # # # # # # # #
   # set plotting parameters for all the plots that might follow
+  op <- par(no.readonly=TRUE)
+  on.exit(par(op), add=TRUE)
   par(mar=c(4,4,4,1)+0.1,xaxs="i",yaxs="i",pty="s",mgp=c(1.5,0.5,0))
+  dev.hold()
+  on.exit(dev.flush(), add=TRUE)
   ## Plotting  
   if (animation == TRUE) {