[Seqinr-commits] r2036 - in pkg: . R

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

Author: simonpenel
Date: 2017-04-24 15:35:30 +0200 (Mon, 24 Apr 2017)
New Revision: 2036

Modified:
   pkg/DESCRIPTION
   pkg/R/read.alignment.R
Log:
Removing carriage returns in alignments according to Matthias Doering suggestion 

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2017-04-14 12:15:20 UTC (rev 2035)
+++ pkg/DESCRIPTION	2017-04-24 13:35:30 UTC (rev 2036)
@@ -1,7 +1,7 @@
 Encoding: UTF-8
 Package: seqinr
-Version: 3.3-6
-Date: 2017-04-05
+Version: 3.3-7
+Date: 2017-04-24
 Title: Biological Sequences Retrieval and Analysis
 Authors at R: c(person("Delphine", "Charif", role = "aut"),
              person("Olivier", "Clerc", role = "ctb"),

Modified: pkg/R/read.alignment.R
===================================================================
--- pkg/R/read.alignment.R	2017-04-14 12:15:20 UTC (rev 2035)
+++ pkg/R/read.alignment.R	2017-04-24 13:35:30 UTC (rev 2036)
@@ -24,6 +24,8 @@
   )
 
   ali <- lapply(ali, as.character)
+  #cleaning \r char
+  ali <- lapply(ali, function (x ){gsub ('\r','',x)})
   if(forceToLower) ali[[3]] <- lapply(ali[[3]], tolower)
   if(format == "mase"){
     ali <- list(nb = as.numeric(ali[[1]]), nam = ali[[2]], seq = ali[[3]], com = ali[[4]])