[Vegan-commits] r671 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2009-01-26 14:04:26 +0100 (Mon, 26 Jan 2009)
New Revision: 671

Modified:
   pkg/vegan/R/ordirgl.R
   pkg/vegan/R/orgltext.R
   pkg/vegan/inst/ChangeLog
Log:
ordirgl: no more wrong warnings with type='t'

Modified: pkg/vegan/R/ordirgl.R
===================================================================
--- pkg/vegan/R/ordirgl.R	2009-01-23 05:41:10 UTC (rev 670)
+++ pkg/vegan/R/ordirgl.R	2009-01-26 13:04:26 UTC (rev 671)
@@ -15,8 +15,8 @@
     else if (type == "t") {
         if (missing(text)) 
             text <- rownames(x)
-        rgl.texts(x[, 1], x[, 2], x[, 3], text, justify = "center", 
-                  ...)
+        rgl.texts(x[, 1], x[, 2], x[, 3], text, ...,
+                  if (oldpak) justify = "center" else adj = 0.5)
     }
     rgl.lines(range(x[, 1]), c(0, 0), c(0, 0), col = ax.col)
     rgl.lines(c(0, 0), range(x[, 2]), c(0, 0), col = ax.col)

Modified: pkg/vegan/R/orgltext.R
===================================================================
--- pkg/vegan/R/orgltext.R	2009-01-23 05:41:10 UTC (rev 670)
+++ pkg/vegan/R/orgltext.R	2009-01-26 13:04:26 UTC (rev 671)
@@ -2,7 +2,7 @@
     function (object, text, display = "sites", choices = 1:3, justify = "center",  
               adj = 0.5, ...) 
 {
-    oldpak <- compareVersion(packageDescription("rgl", field="Version"), "0.65") == -1
+    oldpak <- compareVersion(packageDescription("rgl", field="Version"), "0.65") == 1
     x <- scores(object, display = display, choices = choices, 
                 ...)
     if (missing(text)) 

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2009-01-23 05:41:10 UTC (rev 670)
+++ pkg/vegan/inst/ChangeLog	2009-01-26 13:04:26 UTC (rev 671)
@@ -4,6 +4,8 @@
 
 Version 1.6-10 (openen Jan 20, 2009)
 
+	* ordirgl: fixed wrong warnings in ordirgl(..., type="t"). 
+
 	* kendall.post, kendall.global: knows now all P value adjustment
 	methods of 'p.adjust()' plus "sidak".