[Dplr-commits] r887 - in pkg/dplR: . R

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

Author: mvkorpel
Date: 2014-05-19 15:48:35 +0200 (Mon, 19 May 2014)
New Revision: 887

Modified:
   pkg/dplR/ChangeLog
   pkg/dplR/R/series.rwl.plot.R
Log:
Fixed clipping of text in series.rwl.plot()


Modified: pkg/dplR/ChangeLog
===================================================================
--- pkg/dplR/ChangeLog	2014-05-19 13:08:37 UTC (rev 886)
+++ pkg/dplR/ChangeLog	2014-05-19 13:48:35 UTC (rev 887)
@@ -85,6 +85,11 @@
   will speed up otherwise unbearable computation times on some
   systems.
 
+Files: series.rwl.plot.R
+------------------------
+
+- Fixed clipping of text in the lower right corner of the plot
+
 File: timeseries-dplR.Rnw
 -------------------------
 

Modified: pkg/dplR/R/series.rwl.plot.R
===================================================================
--- pkg/dplR/R/series.rwl.plot.R	2014-05-19 13:08:37 UTC (rev 886)
+++ pkg/dplR/R/series.rwl.plot.R	2014-05-19 13:48:35 UTC (rev 887)
@@ -124,6 +124,7 @@
         polygon(xx, yy, col="grey90")
     }
     ## plot 4
+    par(xpd = TRUE)
     plot(c(-1, 1), c(-2, 1), type="n", ylab="", xlab="", axes=FALSE)
     txt1 <- gettextf("Series:%d-%d", min(na.omit(series.yrs0)),
                      max(na.omit(series.yrs0)), domain="R-dplR")