[Seqinr-commits] r1722 - pkg/R

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

Author: lobry
Date: 2010-02-20 18:48:35 +0100 (Sat, 20 Feb 2010)
New Revision: 1722

Modified:
   pkg/R/getSequence.R
Log:
fixing Oliver Clay bug

Modified: pkg/R/getSequence.R
===================================================================
--- pkg/R/getSequence.R	2009-11-27 17:08:16 UTC (rev 1721)
+++ pkg/R/getSequence.R	2010-02-20 17:48:35 UTC (rev 1722)
@@ -8,7 +8,7 @@
     stop(paste("no getSequence method for objects of class:", class(object)))
 
 getSequence.list <- function(object, as.string = FALSE, ...)
-  sapply(seq_len(length(object)), function(i) getSequence(object[[i]], as.string = as.string, ...))
+  lapply(seq_len(length(object)), function(i) getSequence(object[[i]], as.string = as.string, ...))
 
 getSequence.character <- function(object, as.string = FALSE, ...){
   is.single.string <- function(x) length(x) == 1 && nchar(x) > 1
@@ -23,6 +23,7 @@
   attributes(object) <- NULL # not needed here
   getSequence.character(object, as.string, ...)
 }
+
 getSequence.SeqFrag <- getSequence.SeqFastaAA <- getSequence.SeqFastadna
 
 getSequence.SeqAcnucWeb <- function(object, as.string = FALSE, ..., socket = autosocket()){