Obtenir le texte d'un élément à l'aide de RSelenium

Question

Je suis aux prises avec les lignes de code suivantes depuis quelques heures maintenant et je ne semble toujours pas être proche d'une solution. Mon code est le suivant:

#create a list of all the question elements on the page 
questions <- remDr$findElements(using = 'xpath', "//div[@class='question-text']") 

#get the first question element in the list 
question <- questions[1] 

#get the text of the question element 
question$getElementText() 

Quand je débogage à l'aide rstudio, il semble que la liste des questions est correctement renseigné avec tous les éléments « question »; l'item 'question' est rempli correctement avec le premier élément 'question' de la liste; mais beaucoup de variations sur la ligne de code suivante, destinée à obtenir le texte dans l'élément de question, semblent tous à l'échec, ce qui donne l'erreur suivante:

Error in evalq({ : attempt to apply non-function 

Il est possible que l'erreur provient d'une autre partie de la code, mais très peu probable, car commenter cette ligne semble laisser tout le reste fonctionne parfaitement.

Je serais très reconnaissant pour toute aide que vous et les filles pourriez être en mesure de fournir. Je programme en R en utilisant RSelenium - comme vous pouvez probablement le dire, je suis nouveau à R bien que j'ai une expérience très limitée en utilisant Selenium dans d'autres environnements.

Merci d'avance pour vos commentaires!

Answer 1

question n'a pas de fonction appelée getElementText; c'est un objet list au lieu d'un objet webElement. Vous avez besoin [[ au lieu de [ - consulter cet exemple:

library(RSelenium) 
rD <- rsDriver(port=4444L, browser = "phantomjs") 
remDr <- rD[["client"]] 
remDr$navigate(
    "http://stackoverflow.com/questions/43833649/get-element-text-using-rselenium") 
elems <- remDr$findElements(using = 'xpath', "//a") 
elem <- elems[1] 
class(elem) 
# [1] "list" 
elem$getElementText() 
# Error: attempt to apply non-function 

maintenant

elem <- elems[[1]] 
class(elem) 
# [1] "webElement" 
elem$getElementText() 
# [[1]] 
# [1] "Stack Overflow" 
elem$getElementText()[[1]] 
# [1] "Stack Overflow" 
remDr$close() 
rD[["server"]]$stop()