[Seqinr-commits] r1467 - pkg/R

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

Author: lobry
Date: 2008-10-11 14:58:49 +0200 (Sat, 11 Oct 2008)
New Revision: 1467

Modified:
   pkg/R/query.r
Log:
query now allows a missing listname argument

Modified: pkg/R/query.r
===================================================================
--- pkg/R/query.r	2008-10-09 08:12:17 UTC (rev 1466)
+++ pkg/R/query.r	2008-10-11 12:58:49 UTC (rev 1467)
@@ -6,8 +6,14 @@
 
 query <- function(listname, query, socket = autosocket(), invisible = TRUE, verbose = FALSE, virtual = FALSE) 
 {
-
   #
+  # Use list1 as listname if the argument is missing:
+  #
+  if(missing(query)){
+    query <- listname
+    listname <- "list1"
+  }
+  #
   # Check arguments:
   #
   if(verbose) cat("I'm checking the arguments...\n")