用R在字符串中查找json

Question

给定一个字符串，我想在该字符串中提取 json。

非常类似于这个问题：Find JSON strings in a string 细绳。只为 R。

基本上，如果需要，我需要使用正则表达式和转义字符。因此，我调查了：Is there an R function to escape a string for regex characters。

我尝试了什么：

txt <- "asdd {a:b, c:d} asdasd"
library(stringr)
quotemeta <- function(string) {
  str_replace_all(string, "(\\W)", "\\\\\\1")
}

quotemeta("\{(?:[^{}]|(?R))*\}")
str_extract_all(string = txt, pattern = quotemeta("\\{(?:[^{}]|(?R))*\\}"))
str_extract_all(string = txt, pattern = "\\{\\(\\?\\:\\[\\^\\{\\}\\]\\|\\(\\?R\\)\\)\\*\\}")
str_extract_all(string = txt, pattern = "\\\\{\\(\\?\\:\\[\\^\\{\\}\\]\\|\\(\\?R\\)\\)\\*\\\\}")

Answer 1

我使用regexpr() 和regmatches()。

• regexpr(pattern,text) ：取与模式匹配的文本位置。
• regmatches(m,x) ：提取匹配的文本。
• pattern ：将\{ \} 变成\\{ \\}。

regexpr("\\{(?:[^{}]|(?R))*\\}",txt,perl = T) %>% regmatches(x=txt)
#[1] "{a:b, c:d}"

这种模式可能更容易理解。

• 这个模式是\\{(\\S|\\s)+\\}：
  • \\{ 表示大括号“{”
  • (\\S|\\s)+ 表示大括号之间的所有空白字符和非空白字符。
  • \\} 表示大括号“}”

regexpr("\\{(\\S|\\s)+\\}",txt,perl = T) %>% regmatches(x=txt)
#[1] "{a:b, c:d}"

希望对你有用:)