[Analogue-commits] r171 - in pkg: R inst

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

Author: gsimpson
Date: 2010-05-19 19:36:09 +0200 (Wed, 19 May 2010)
New Revision: 171

Modified:
   pkg/R/panel.Stratiplot.R
   pkg/inst/ChangeLog
Log:
fix the warnings from Grid about inappropriate colour format - silly bug in code not using the  of the trellis settings for the reference line

Modified: pkg/R/panel.Stratiplot.R
===================================================================
--- pkg/R/panel.Stratiplot.R	2010-05-19 17:30:44 UTC (rev 170)
+++ pkg/R/panel.Stratiplot.R	2010-05-19 17:36:09 UTC (rev 171)
@@ -26,7 +26,7 @@
         if (missing(col.symbol))
             col.symbol <- col
     }
-    panel.refline(v = 0, col.line = ref.line, ...)
+    panel.refline(v = 0, col.line = ref.line$col, ...)
     if ("o" %in% type || "b" %in% type)
         type <- c(type, "p", "l")
     if ("g" %in% type)
@@ -37,9 +37,10 @@
     if("p" %in% type)
         panel.points(x = x, y = y, cex = cex, fill = fill,
                      col = col.symbol, pch = pch, ...)
-    if("h" %in% type)
-        panel.segments(x0 = 0, y0 = y, x1 = x, y1 = y,
-                       col = col.line, lty = lty, lwd = lwd, ...)
+    if ("h" %in% type) {
+        panel.lines(x = x, y = y, type = "H", col = col.line, lty = lty,
+                    lwd = lwd, ...)
+    }
     if("poly" %in% type)
         panel.polygon(x = c(0, x, 0), y = c(y[1], y, y[length(y)]),
                       border = col.poly, col = col.poly, ...)

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2010-05-19 17:30:44 UTC (rev 170)
+++ pkg/inst/ChangeLog	2010-05-19 17:36:09 UTC (rev 171)
@@ -2,6 +2,10 @@
 
 Version 0.6-24
 
+	* panel.Stratiplot; fix warning messages (from Grid) due to
+	inappropriate colour specification. Reference lines in
+	Stratiplot now plot correctly again.
+
 	* plot.roc: was resetting the plotting region at the end of
 	plotting even when there was no need to do so.