rvest를 통해 웹을 긁어 모으는 이메일 주소 받기

Question

안녕하세요, 저는 패키지 rvest를 사용하여 R 언어로 긁어 모으는 웹을 통해이 웹 페이지에 대한 정보를 거의 얻으려고합니다. 나는 이름과 모든 것을 얻고 있지만 전자 메일 ID 즉 info@brewhemia.co.uk을 얻을 수 없습니다. read_html을 텍스트로 볼 경우 전자 메일 ID가 HTML 구문 분석 텍스트로 표시되지 않습니다. 아무도 도와 줄 수 있니? 나는 웹 근근이 살아가고 있습니다. 그러나 나는 R 언어를 알고 있습니다.

link <- 'https://food.list.co.uk/place/22191-brewhemia-edinburgh/' 
page <- read_html(link) 
name_html <- html_nodes(page,'.placeHeading') 
business_adr <- html_text(adr_html) 
tel_html <- html_nodes(page,'.value') 
business_tel <- html_text(tel_html) 

이메일 ID는 'a'HTML 태그이지만 추출 할 수 없습니다.

Answer 1

여기 js 코드를 처리하려면 자바 스크립트 엔진이 필요합니다. 다행히도 R은 V8입니다.

는 V8 패키지를 설치 한 후 코드를 수정 :

은

library(rvest) 
library(V8) 

link <- 'https://food.list.co.uk/place/22191-brewhemia-edinburgh/' 
page <- read_html(link) 
name_html <- html_nodes(page,'.placeHeading') 
business_adr <- html_text(adr_html) 
tel_html <- html_nodes(page,'.value') 
business_tel <- html_text(tel_html) 

emailjs <- page %>% html_nodes('li') %>% html_nodes('script') %>% html_text() 
ct <- v8() 

read_html(ct$eval(gsub('document.write','',emailjs))) %>% html_text() 

는 출력 :

> read_html(ct$eval(gsub('document.write','',emailjs))) %>% html_text() 
[1] "info@brewhemia.co.uk"