fix #1289: allow whitespaces before % in Rtex code chunks

yihui · Sep 15, 2016 · 8e9c7fc · 8e9c7fc
1 parent 8ff41c5
commit 8e9c7fc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/pattern.R b/R/pattern.R
@@ -18,7 +18,7 @@ all_patterns = list(
 
   `tex` = list(
     chunk.begin = '^\\s*%+\\s*begin.rcode\\s*(.*)', chunk.end = '^\\s*%+\\s*end.rcode',
-    chunk.code = '^%+', ref.chunk = '^%+\\s*<<(.+)>>\\s*$',
+    chunk.code = '^\\s*%+', ref.chunk = '^%+\\s*<<(.+)>>\\s*$',
     inline.comment = '^\\s*%.*', inline.code = '\\\\rinline\\{([^}]+)\\}',
     header.begin = '(^|\n)\\s*\\\\documentclass[^}]+\\}',
     document.begin = '\\s*\\\\begin\\{document\\}'),
@@ -35,7 +35,7 @@ all_patterns = list(
 
   `rst` = list(
     chunk.begin = '^\\s*[.][.]\\s+\\{r(.*)\\}\\s*$',
-    chunk.end = '^\\s*[.][.]\\s+[.][.]\\s*$', chunk.code = '^[.][.]',
+    chunk.end = '^\\s*[.][.]\\s+[.][.]\\s*$', chunk.code = '^\\s*[.][.]',
     ref.chunk = '^\\.*\\s*<<(.+)>>\\s*$', inline.code = ':r:`([^`]+)`'),
 
   `asciidoc` = list(