Получение номера телефона по клику (JavaScript) не работает с пользовательской функцией в R - PullRequest
Новая
       20

Получение номера телефона по клику (JavaScript) не работает с пользовательской функцией в R

1 голос
/ 17 апреля 2020

Я пытаюсь получить номер телефона по клику от https://www.europages.co.uk/WASTA-KONSERVEN-FISCHL-GMBH-CO-KG/DEU476016-00101.html. Работает следующий код: 

library(rvest)
library(tidyverse)
#library(data.table)
library(RSelenium)

url <- "https://www.europages.co.uk/WASTA-KONSERVEN-FISCHL-GMBH-CO-KG/DEU476016-00101.html"
remDr <- remoteDriver( port = 4445L, browser = "firefox")
remDr$open(silent=TRUE)
remDr$navigate(url)
xp <- "//div[@class='click-tel icon icon-telephone']"
element <- remDr$findElement(using = 'xpath', xp)
element$clickElement()
page_source <- remDr$getPageSource()[[1]]
page_source %>% read_html() %>% html_nodes(".info-tel-num") %>% html_text()

# [1] "+49 854 79 60 10"

Однако это не работает (выдает только пустой вывод): 

phone <- function(url){
  url <- url
  remDr$navigate(url)
  xp <- "//div[@class='click-tel icon icon-telephone']"
  element <- remDr$findElement(using = 'xpath', xp)
  element$clickElement()
  page_source <- remDr$getPageSource()[[1]]
  page_source %>% read_html() %>% html_nodes(".info-tel-num") %>% 
  html_text()
}

phone(url)

Кто-нибудь может помочь объяснить, почему это происходит?

...