[Sciviews-commits] r97 - pkg/svMisc/R

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

Author: prezez
Date: 2009-01-22 15:15:43 +0100 (Thu, 22 Jan 2009)
New Revision: 97

Modified:
   pkg/svMisc/R/objList.R
Log:
Restored previous dimension separator "x"

Modified: pkg/svMisc/R/objList.R
===================================================================
--- pkg/svMisc/R/objList.R	2009-01-21 16:03:50 UTC (rev 96)
+++ pkg/svMisc/R/objList.R	2009-01-22 14:15:43 UTC (rev 97)
@@ -205,7 +205,7 @@
 			d <- dim(x)
 			if (is.null(d)) d <- length(x)
 
-			ret <- c(paste(d, collapse="\u00D7"),
+			ret <- c(paste(d, collapse="x"),
 					mode(x),
 					class(x)[1],
 					is.function(x) || (is.recursive(x) && !is.language(x) && sum(d) != 0)
@@ -253,7 +253,7 @@
 			o.mode <- ""
 		}
 
-		ret <- c(paste(d, collapse="\u00D7"), o.class,	o.mode, FALSE)
+		ret <- c(paste(d, collapse="x"), o.class,	o.mode, FALSE)
 
 		return (ret)
 
@@ -279,7 +279,7 @@
 		d <- dim(x)
 		if (is.null(d)) d <- length(x)
 
-			ret <- c(paste(d, collapse="\u00D7"),
+			ret <- c(paste(d, collapse="x"),
 					mode(x),
 					class(x)[1],
 					is.function(x) || (is.recursive(x) && !is.language(x) && sum(d) != 0)