[Ade4-commits] r460 - pkg/R

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

Author: sdray
Date: 2009-04-20 17:53:07 +0200 (Mon, 20 Apr 2009)
New Revision: 460

Modified:
   pkg/R/area.plot.R
Log:
argument nclasslegend is now active. bug identified by C. Calenge

Modified: pkg/R/area.plot.R
===================================================================
--- pkg/R/area.plot.R	2009-04-01 11:11:44 UTC (rev 459)
+++ pkg/R/area.plot.R	2009-04-20 15:53:07 UTC (rev 460)
@@ -37,7 +37,7 @@
             values <- as.vector(values)
         if (length(values) != nlev) 
             values <- rep(values, le = nlev)
-        br0 <- pretty(values, 6)
+        br0 <- pretty(values, nclasslegend - 1)
         nborn <- length(br0)
         h <- diff(range(x1))/20
         numclass <- cut.default(values, br0, include = TRUE,