add a new pattern list 'gfm' which is more natural in GFM and pandoc …

…syntax
yihui · Mar 18, 2012 · d11b96d · d11b96d
1 parent 7e292d6
commit d11b96d
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/R/defaults.R b/R/defaults.R
@@ -93,7 +93,14 @@ all_patterns =
                      inline.code = '<!--\\s*rinline\\s*([^>]*)\\s*-->',
                      global.options = '<!--\\s*roptions\\s*([^>]*)\\s*-->',
                      header.begin = '\n*\\s*<head>',
-                     ref.label = '^## @knitr (.*)$'))
+                     ref.label = '^## @knitr (.*)$'),
+
+       `gfm` = list(chunk.begin = '^``` \\{r (.*)\\}\\s*$',
+                   chunk.end = '^````\\s*$',
+                   ref.chunk = '^\\s*<<(.*)>>\\s*$',
+                   inline.code = '`ri\\s+([^`]*)\\s+ir`',
+                   global.options = '`ro\\s+([^`]*)\\s+or`',
+                   ref.label = '^## @knitr (.*)$'))
 
 #' Options for the knitr package
 #' 

diff --git a/R/pattern.R b/R/pattern.R
@@ -65,6 +65,9 @@ pat_tex = function() set_pattern('tex')
 #' @rdname pat_fun
 #' @export
 pat_html = function() set_pattern('html')
+#' @rdname pat_fun
+#' @export
+pat_gfm = function() set_pattern('gfm')
 
 ## helper functions