从网站上刮取电子邮件ID

Question

我正在学习网页抓取，并希望从此网站获取email_id http://www.barnehagefakta.no/barnehage/1019871/oraker-barnehage-as 我正在使用css选择器在R语言中找到它

library('rvest')
url <- "http://www.barnehagefakta.no/barnehage/1019871/oraker-barnehage-as"
page <- read_html(url)
name_html <- html_nodes(page,'.icon-mail-alt.ng-binding')
df <- data.frame(html_children(name_html) %>% html_attr("href"))

请告诉我需要改变什么。