[Seqinr-commits] r1742 - pkg/R

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

Author: lobry
Date: 2010-03-17 19:46:56 +0100 (Wed, 17 Mar 2010)
New Revision: 1742

Modified:
   pkg/R/getAnnot.R
Log:
fixing the sapply/lapply bug

Modified: pkg/R/getAnnot.R
===================================================================
--- pkg/R/getAnnot.R	2010-03-07 11:15:09 UTC (rev 1741)
+++ pkg/R/getAnnot.R	2010-03-17 18:46:56 UTC (rev 1742)
@@ -7,7 +7,7 @@
   stop(paste("no getAnnot method for objects of class:", class(object)))
 
 getAnnot.list <- function(object, ...)
-  sapply(seq_len(length(object)), function(i) getAnnot(object[[i]], ...))
+  lapply(seq_len(length(object)), function(i) getAnnot(object[[i]], ...))
 
 getAnnot.SeqFastadna <- function(object, ...) attr(object, "Annot")
 getAnnot.SeqFastaAA <- getAnnot.SeqFastadna