用双引号从R中的json字符串中提取文本

Question

我正在尝试提取 JSON 对象的正文字符串中的内容。问题是我无法将双引号传递给并提取所有文本信息。在这种情况下，我需要文本为“文档中存在关于库函数链接的拼写错误，这在浏览文档时非常烦人！”。我已经把我的代码放在这里，如果有人可以建议如何传递双引号而不是 (",) 并且可以达到这个贪婪的量词，（这是我一直在使用的表达式），

body<- str_extract(json_file , 'body[^,]*\\s*'). 

谢谢

library(stringr)
json_file<- '{ "_id" : ObjectId( "539163d7bd350003" ), "login" :    "vui", "id" : 369607, "avatar_url" : "https://avatars.mashupsusercontent.com/u/369607?", "gravatar_id" : "df8897ffebe16c5b0cd690925c63e190", "body":"There is a typo error in documentation regarding a link to a librarys function, which is quite irritating while browsing the documentation!","url" : "https://api.mashups.com/users/vui", "html_url" : "https://mashups.com/vui", "followers_url" : "https://api.mashups.com/users/vui/followers", "following_url" : "https://api.mashups.com/users/vui/following{/other_user}", "gists_url" : "https://api.mashups.com/users/vui/gists{/gist_id}", "starred_url" : "https://api.mashups.com/users/vui/starred{/owner}{/repo}", "subscriptions_url" : "https://api.mashups.com/users/vui/subscriptions", "organizations_url" : "https://api.mashups.com/users/vui/orgs", "repos_url" : "https://api.mashups.com/users/vui/repos", "events_url" : "https://api.mashups.com/users/vui/events{/privacy}", "received_events_url" : "https://api.mashups.com/users/vui/received_events", "type" : "User", "site_admin" : false, "org" : "amurath"}'
body<- str_extract(json_file , 'body[^,]*\\s*')

body

Answer 1

这对我有用..

  library(stringr)
  body <- str_extract(json_file, 'body":"[^"]*')

Answer 2

您的输入只有一个格式错误的示例，因此我不太相信这将适用于您的其余数据。但是，在 此数据 上获得所需内容的一种方法是：

gsub('.*?body.*?:\"(.*?)\",\"\\w+\"\\s*:.*', "\\1", json_file)

[1] "对于像我这样的 spout 用户，/reload 不是一个选项 因为它使 spout 框架崩溃。此外，重新加载需要一段时间。一世 想知道你是否可以执行一个命令来重新加载 \"configurations\"。\r\n就是这样，祝新人快乐 年！\r\n-asleeponduty"

编辑：我做了一个小的修改。新版本适用于您的旧示例和新示例。

gsub('.*?body.*?:\"(.*?)\",\"\\w+\"\\s*:.*', "\\1", json_file)

[1] “文档中关于指向 图书馆功能，浏览时很烦人 文件！”