-
-
Notifications
You must be signed in to change notification settings - Fork 879
/
Copy pathpattern.R
149 lines (134 loc) · 5.52 KB
/
pattern.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
#' All built-in patterns
#'
#' This object is a named list of all built-in patterns.
#' @references Usage: \url{http://yihui.name/knitr/patterns}
#' @export
#' @examples all_patterns$rnw; all_patterns$html
#'
#' str(all_patterns)
all_patterns = list(
`rnw` = list(chunk.begin = '^\\s*<<(.*)>>=',
chunk.end = '^\\s*@\\s*(%+.*|)$',
inline.code = '\\\\Sexpr\\{([^}]+)\\}',
inline.comment = '^\\s*%.*',
ref.chunk = '^\\s*<<(.+)>>\\s*$',
header.begin = '\\s*\\\\documentclass[^}]+\\}',
document.begin = '\\s*\\\\begin\\{document\\}'),
`brew` = list(inline.code = '<%[=]{0,1}\\s+([^%]+)\\s+[-]*%>'),
`tex` = list(chunk.begin = '^\\s*%+\\s*begin.rcode\\s*(.*)',
chunk.end = '^\\s*%+\\s*end.rcode', chunk.code = '^%+',
ref.chunk = '^%+\\s*<<(.+)>>\\s*$',
inline.comment = '^\\s*%.*',
inline.code = '\\\\rinline\\{([^}]+)\\}',
header.begin = '\\s*\\\\documentclass[^}]+\\}',
document.begin = '\\s*\\\\begin\\{document\\}'),
`html` = list(chunk.begin = '^\\s*<!--\\s*begin.rcode\\s*(.*)',
chunk.end = '^\\s*end.rcode\\s*-->',
ref.chunk = '^\\s*<<(.+)>>\\s*$',
inline.code = '<!--\\s*rinline(.+?)-->',
header.begin = '\\s*<head>'),
`md` = list(chunk.begin = '^\\s*```+\\s*\\{r(.*)\\}\\s*$',
chunk.end = '^\\s*```+\\s*$',
ref.chunk = '^\\s*<<(.+)>>\\s*$',
inline.code = '`r +([^`\n]+)\\s*`'),
`rst` = list(chunk.begin = "^\\s*[.][.]\\s+\\{r(.*)\\}\\s*$",
chunk.end = "^\\s*[.][.]\\s+[.][.]\\s*$",
chunk.code = "^[.][.]",
ref.chunk = "^\\.*\\s*<<(.+)>>\\s*$",
inline.code = ":r:`([^`]+)`"),
`asciidoc` = list(chunk.begin = '^//\\s*begin[.]rcode$',
chunk.end = '^//\\s*end[.]rcode$', chunk.code = '^/+',
ref.chunk = '^\\s*<<(.+)>>\\s*$',
inline.code = '`r +([^`\n]+)\\s*`',
inline.comment = '^//.*')
)
.sep.label = '^#+\\s*@knitr(.*)$' # pattern for code chunks in an R script
## initial pattern list
.pat.init = list(
chunk.begin = NULL, chunk.end = NULL, chunk.code = NULL, inline.code = NULL,
global.options = NULL, input.doc = NULL, ref.chunk = NULL,
header.begin = NULL, document.begin = NULL
)
#' Patterns to match and extract R code in a document
#'
#' Patterns are regular expressions and will be used in functions like
#' \code{\link[base]{grep}} to extract R code and chunk options. The object
#' \code{knit_patterns} controls the patterns currently used; see the references
#' and examples for usage.
#'
#' @references Usage: \url{http://yihui.name/knitr/objects}
#'
#' Components in \code{knit_patterns}: \url{http://yihui.name/knitr/patterns}
#' @export
#' @examples library(knitr)
#' opat = knit_patterns$get() # old pattern list (to restore later)
#'
#' apats = all_patterns # a list of all built-in patterns
#' str(apats)
#' knit_patterns$set(apats[['rnw']]) # set pattern list from apats
#'
#' knit_patterns$get(c('chunk.begin', 'chunk.end', 'inline.code'))
#'
#' ## a customized pattern list; has to empty the original patterns first!
#' knit_patterns$restore()
#' ## we may want to use this in an HTML document
#' knit_patterns$set(list(chunk.begin = '<!--helloR\\s+(.*)', chunk.end = '^byeR-->'))
#' str(knit_patterns$get())
#'
#' knit_patterns$set(opat) # put the old patterns back
knit_patterns = new_defaults(.pat.init)
## in LaTeX, may need to put this \newcommand{\rinline}[1]{R output}
## convenience functions
set_pattern = function(type) {
knit_patterns$restore(all_patterns[[type]])
}
#' Set regular expressions to read input documents
#'
#' These are convenience functions to set pre-defined pattern lists (the syntax
#' to read input documents). The function names are built from corresponding
#' file extensions, e.g. \code{pat_rnw()} can set the Sweave syntax to read Rnw
#' documents.
#' @rdname pat_fun
#' @return The patterns object \code{\link{knit_patterns}} is modified as a side
#' effect.
#' @export pat_rnw pat_brew pat_tex pat_html pat_md pat_rst
#' @examples ## see how knit_patterns is modified
#' knit_patterns$get(); pat_rnw(); knit_patterns$get()
#'
#' knit_patterns$restore() # empty the list
pat_rnw = function() set_pattern('rnw')
#' @rdname pat_fun
pat_brew = function() set_pattern('brew')
#' @rdname pat_fun
pat_tex = function() set_pattern('tex')
#' @rdname pat_fun
pat_html = function() set_pattern('html')
#' @rdname pat_fun
pat_md = function() set_pattern('md')
#' @rdname pat_fun
pat_rst = function() set_pattern('rst')
## helper functions
## is it a group pattern?
group_pattern = function(pattern) {
!is.null(pattern) && str_detect(pattern, '\\(.+\\)')
}
## automatically detect the chunk patterns
detect_pattern = function(text, ext) {
if (!missing(ext)) {
if (ext %in% c('rnw', 'snw', 'stex')) return('rnw')
if (ext == 'brew') return('brew')
if (ext %in% c('htm', 'html', 'rhtm', 'rhtml')) return('html')
if (ext %in% c('rmd', 'rmarkdown', 'markdown', 'md')) return('md')
if (ext %in% c('rst', 'rrst')) return('rst')
}
for (p in names(all_patterns)) {
for (i in c('chunk.begin', 'inline.code')) {
pat = all_patterns[[p]][[i]]
if (length(pat) && length(grep(pat, text))) return(p)
}
}
# *.Rtex indicates the tex syntax in knitr, but Rnw syntax in traditional
# Sweave, which should have been detected in the above loop
if (!missing(ext) && ext == 'rtex') return('rnw')
NULL
}