[rkward-cvs] SF.net SVN: rkward: [922] trunk/rkward/rkward/rbackend/rpackages/rkward/R/ public.R

[tfry at users.sourceforge.net]

Revision: 922
          http://svn.sourceforge.net/rkward/?rev=922&view=rev
Author:   tfry
Date:     2006-11-15 06:13:53 -0800 (Wed, 15 Nov 2006)

Log Message:
-----------
Fix bug in rk.get.label

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2006-11-15 13:19:04 UTC (rev 921)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public.R	2006-11-15 14:13:53 UTC (rev 922)
@@ -1,9 +1,9 @@
 # retrieve the rkward label (if any) of the given object
 "rk.get.label" <- function (x) {
 	if (is.call (x) || is.name (x)) {
-		as.vector (attr (eval (x), ".rk.meta")[row.names (attr (eval (x), ".rk.meta")) == "label",1])
+		as.vector (attr (eval (x), ".rk.meta")[names (attr (eval (x), ".rk.meta")) == "label"])
 	} else {
-		as.vector (attr (x, ".rk.meta")[row.names (attr (x, ".rk.meta")) == "label",1])
+		as.vector (attr (x, ".rk.meta")[names (attr (x, ".rk.meta")) == "label"])
 	}
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.