[Seqinr-commits] r1471 - pkg/R

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

Author: lobry
Date: 2008-10-11 18:52:56 +0200 (Sat, 11 Oct 2008)
New Revision: 1471

Modified:
   pkg/R/query.r
Log:
class qaw has gained a generic print method

Modified: pkg/R/query.r
===================================================================
--- pkg/R/query.r	2008-10-11 16:50:24 UTC (rev 1470)
+++ pkg/R/query.r	2008-10-11 16:52:56 UTC (rev 1471)
@@ -119,3 +119,12 @@
   assign(listname, result, env = .GlobalEnv)
 }
 
+#
+# Print method:
+#
+
+print.qaw <- function(x, ...)
+{
+  if(is.null(x$call$query)) x$call$query <- x$call$listname
+  cat(x$nelem, x$type, "for", x$call$query)
+}