[Seqinr-commits] r1495 - pkg/R

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

Author: lobry
Date: 2008-10-26 19:25:43 +0100 (Sun, 26 Oct 2008)
New Revision: 1495

Modified:
   pkg/R/ClassSeq.R
Log:
generic print for qaw

Modified: pkg/R/ClassSeq.R
===================================================================
--- pkg/R/ClassSeq.R	2008-10-26 18:14:47 UTC (rev 1494)
+++ pkg/R/ClassSeq.R	2008-10-26 18:25:43 UTC (rev 1495)
@@ -1,14 +1,4 @@
 
-
-
-
-
-
-
-
-
-
-
 ##########################################################################
 #
 # SeqFastadna:
@@ -83,5 +73,12 @@
 
 is.SeqFrag <- function(object) inherits(object, "SeqFrag")
 
+#
+# Query Acnuw Web (qaw class)
+#
 
+print.qaw <- function(x, ...)
+{
+  cat(x$nelem, x$type, "for", list1$call$query)
+}