自动识别字符串中包含的有效 JSON 个对象的函数？

Question

假设我们在一个字符串中有一个或多个有效的 JSON 对象。考虑字符串：

paste0("klsdjfo234u", toJSON(iris[1, ]), "lsdkfj20934ujsdfl")

# [1] "klsdjfo234u[{\"Sepal.Length\":5.1,\"Sepal.Width\":3.5,\"Petal.Length\":1.4,\"Petal.Width\":0.2,\"Species\":\"setosa\"}]lsdkfj20934ujsdfl"

如果我们知道 JSON 在字符串中的位置，我们可以使用 str_split() 或 substr()

轻松提取它

但是对于很长的字符串，这可能是费力的和手动的。

是否有任何函数可以自动从字符串中找到有效的JSON？（无需人工干预）

具有所需输出的示例

接收字符串的函数find_JSON()，以及returns有效的JSON对象

paste0("klsdjfo234u", toJSON(iris[1, ]), "lsdkfj20934ujsdfl") %>% 
  find_JSON()
# [1] [{\"Sepal.Length\":5.1,\"Sepal.Width\":3.5,\"Petal.Length\":1.4,\"Petal.Width\":0.2,\"Species\":\"setosa\"}]

和

paste0("klsdjfo234u", toJSON(iris[1, ]), "lsdkfj20934ujsdfl") %>% 
  find_JSON %>% 
  jsonlite::fromJSON

#   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#            5.1         3.5          1.4         0.2  setosa

Answer 1

这可能不是一个完整的证明方法，但我们创建一个模式来查找 json 并提取它如何

vals <- paste0("klsdjfo234u", toJSON(iris[1, ]), "lsdkfj20934ujsdfl")

lapply(stringr::str_extract_all(vals, '\[\{.*\}\]'), jsonlite::fromJSON)

#[[1]]
#  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#1          5.1         3.5          1.4         0.2  setosa

自动识别字符串中包含的有效 JSON 个对象的函数？

Function to automatically identify valid JSON object(s) contained in a string?

r

regex

tidyverse

stringr

jsonlite

具有所需输出的示例