Нажмите на все элементы с тем же CSS RSelenium - PullRequest
Новая
       11

Нажмите на все элементы с тем же CSS RSelenium

0 голосов
/ 18 марта 2019

Я пытаюсь удалить сайт, на котором мне нужно нажать на несколько элементов, а затем извлечь текст с помощью RSelenium

Я нашел пару вопросов по этой теме, но не смог решить своюпроблема: Установка нескольких флажков с помощью RSelenium Выберите все элементы с одинаковым CssSelector или таким же XPath FindElements

Я хотел бы извлечь текст из предложений в этом поиске: https://eur -lex.europa.eu / search.html typeOfCourtStatus = COURT_JUSTICE & DB_TYPE_COURT = COURT_JUSTICE & QID = 1552508694151 & DB_TYPE_OF_ACT = advGeneral & DTS_DOM = EU_LAW & typeOfActStatus = ADV_GENERAL & тип = расширенный & LANG = EN & SUBDOM_INIT = EU_CASE_LAW & date0 = ALL: 01012008% 7C31122018 & DTS_SUBDOM = EU_CASE_LAW и страница = 1

Для этого я должен нажать на заголовки, а затем почистить тексты.

Я могу сделать это для одного: 

browser$navigate(url)
Sys.sleep(1)
more <- browser$findElement(using = "css selector", value = ".title")
more$clickElement()
more <- browser$findElement(using = "id", value= "text")
sentences <- unlist(sapply(more, function(x){more$getElementText()}))
sentences <- unique(sentences)

Но когда я пытаюсь использовать findElementsвозвращает ошибку attempt to apply non-function.Я новичок в очистке, поэтому, вероятно, в моем коде больше ошибок, но вот моя попытка: 

browser$navigate(url)
Sys.sleep(1)
more <- browser$findElements(using = "css selector", value = ".title")
for (i in 1:length(more)){
  more$clickElement()
  more <- browser$findElement(using = "id", value= "text")
  sentences <- unlist(sapply(more, function(x){more$getElementText()}))
  sentences <- unique(sentences)
  }

Есть идеи, как мне решить эту проблему?Заранее спасибо.

...