R中用于大括号的递归正则表达式

Question

我有一些以下模式的文本字符串。

x = "sdfwervd \calculus{fff}{\trt{sdfsdf} & \trt{sdfsdf} & \trt{sdfsdf} \\{} sdfsdf & sdfsdf & sefgse3 } aserdd wersdf sewtgdf"

>

此外，我还想捕获{之后第一个\calculation{.}之间的字符串 和对应的右大括号}。

如何在R中使用正则表达式？

下面是最后一个花括号之前的所有内容。

gsub("(\\calculus\\{)(.+)(\\})", "", x)




Answer 1

对于第二个任务，可以将递归方法与baseR中的regmatches（）和gregexpr（）结合使用：

x <- c("sdfwervd \\calculus{fff}{\\trt{sdfsdf} & \\trt{sdfsdf} & \\trt{sdfsdf} \\{} sdfsdf & sdfsdf & sefgse3 } aserdd wersdf sewtgdf")

pattern <- "\\{(?:[^{}]*|(?R))*\\}"
(result <- regmatches(x, gregexpr(pattern, x, perl = TRUE)))

[[1]]
[1] "{fff}"                                                                          
[2] "{\\trt{sdfsdf} & \\trt{sdfsdf} & \\trt{sdfsdf} \\{} sdfsdf & sdfsdf & sefgse3 }"

有关regex101上的表达式，请参见演示。通用域名格式。