[Seqinr-commits] r1568 - pkg/R

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

Author: lobry
Date: 2009-03-30 20:38:43 +0200 (Mon, 30 Mar 2009)
New Revision: 1568

Modified:
   pkg/R/getTrans.R
Log:
Yann LESECQUE bug fix

Modified: pkg/R/getTrans.R
===================================================================
--- pkg/R/getTrans.R	2009-03-11 10:08:24 UTC (rev 1567)
+++ pkg/R/getTrans.R	2009-03-30 18:38:43 UTC (rev 1568)
@@ -9,7 +9,7 @@
     stop(paste("no getTrans method for objects of class:", class(object)))
 
 getTrans.list <- function(object, sens = "F", NAstring = "X", ambiguous = FALSE, ...)
-  sapply(seq_len(length(object)),
+  lapply(seq_len(length(object)),
     function(i) getTrans(object[[i]], sens = sens, NAstring = NAstring, ambiguous = ambiguous, ...))
 
 getTrans.character <- function(object, sens = "F", NAstring = "X", ambiguous = FALSE, ..., frame = 0, numcode = 1)