[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R internal.R,1.20,1.21

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23947/rbackend/rpackages/rkward/R

Modified Files:
	internal.R 
Log Message:
Fix last commit

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** internal.R	9 Dec 2005 16:06:32 -0000	1.20
--- internal.R	9 Dec 2005 17:35:41 -0000	1.21
***************
*** 26,30 ****
  	if (!is.null (attr (x, ".rk.meta"))) type = type + 256
  	d <- dim (x)
! 	if (length (d) < 1) d = length (d);	# handling for objects that according to R do not have a dimension (such as vectors, functions, etc.)
  	c (type, d)
  }
--- 26,30 ----
  	if (!is.null (attr (x, ".rk.meta"))) type = type + 256
  	d <- dim (x)
! 	if (length (d) < 1) d <- length (x);	# handling for objects that according to R do not have a dimension (such as vectors, functions, etc.)
  	c (type, d)
  }