用双引号从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“对于像我这样的喷口用户来说，/reload不是一种选择，因为它会使喷管框架崩溃。而且，重新加载需要一段时间。我想知道您是否可以实现一个命令来重新加载\”配置“.\r\nThat就是全部，祝您新年快乐！\r\n-asleeponduty”

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

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

1“在有关指向库函数的链接的文档中存在一个错误，这在浏览文档时非常烦人！”