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 프레임 워크를 충돌하므로 옵션이 아닙니다. 또한, 재 장전에는 시간이 걸립니다. 당신이 그 \ 를 다시로드 명령을 구현할 수 있는지 궁금 해서요 "구성 \"\ 연구 \여 모든이며, 한 해피 뉴 년 \ 연구 \ n 형 asleeponduty "

편집.! : 나는 사소한 수정했다. 새로운 버전은 이전 예와 새 모두에서 작동합니다.

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

[1] "링크에 관한 문서에 오타 오류가 librarys 기능에있다, 형제가 아주 자극적이다. 문서를 wsing! "