[Seqinr-commits] r1770 - pkg/R

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

Author: simonpenel
Date: 2012-08-13 11:06:59 +0200 (Mon, 13 Aug 2012)
New Revision: 1770

Modified:
   pkg/R/stresc.R
Log:
The pipe caracter is now correctly processed thanks to Grabor Grothendieck


Modified: pkg/R/stresc.R
===================================================================
--- pkg/R/stresc.R	2012-02-22 10:15:53 UTC (rev 1769)
+++ pkg/R/stresc.R	2012-08-13 09:06:59 UTC (rev 1770)
@@ -5,9 +5,9 @@
   # originally arguments of the function to allow for more flexibillity but
   # are now hard-encoded within the function.
   #
-  fromchar <- s2c("\\{}$^_%#&~[]")
+  fromchar <- s2c("\\{}$^_%#&~[]|")
   tochar <- c("$\\backslash$", "\\{", "\\}", "\\$", "\\^{}", "\\_", "\\%", "\\#", "\\&", "\\~{}",
-  "\\lbrack{}", "\\rbrack{}")
+  "\\lbrack{}", "\\rbrack{}","\\textbar{}")
   #
   # Definition of the function to escape LaTeX character in one string:
   #