regex - 在 Sweave 表达式中查找 R 代码的正则表达式

Question

我在一些 .Rnw 文件的文本中包含了一些 sweave 表达式。下面的段落包含两个 sweave 表达式。我可以使用什么正则表达式来查找每个表达式中的 R 代码。所以正则表达式应该可以找到mean(mtcars$mpg)和/或 summary(lm(mpg ~ hp + drat, mtcars))

Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. \Sexpr{mean(mtcars$mpg)}. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat \Sexpr{summary(lm(mpg ~ hp + drat, mtcars))} non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

Answer 1

正则表达式为 (?<=\\Sexpr{).+?(?=})

(?<=\\Sexpr{)部分正面回顾

(?=})正向预测

.+?将懒惰地匹配上述两个环视之间的所有内容。

在这里阅读更多。 http://www.regular-expressions.info/lookaround.html

例如。在 R 中(因为你标记了 R)

txt <- 'Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. \\Sexpr{mean(mtcars$mpg)}. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat \\Sexpr{summary(lm(mpg ~ hp + drat, mtcars))} non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.'

regmatches(txt, gregexpr('(?<=\\Sexpr{).+?(?=})', txt, perl=T))

## [[1]]
## [1] "mean(mtcars$mpg)"                     "summary(lm(mpg ~ hp + drat, mtcars))"