Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/72.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 使getElementText通过循环_R_Loops_Rselenium - Fatal编程技术网
Fatal编程技术网
  • r/
  • R 使getElementText通过循环

R 使getElementText通过循环

r loops

R 使getElementText通过循环,r,loops,rselenium,R,Loops,Rselenium,我使用RSelenium包进行网页抓取 我的代码： library(RSelenium) driver <- rsDriver(port=4444L,browser="chrome") remote_driver <- driver$client remote_driver$open() remote_driver$navigate("https://www.amazon.in/b/?_encoding=UTF8&node=1389401031&ref_=sv_top

我使用RSelenium包进行网页抓取

我的代码：

library(RSelenium)
driver <- rsDriver(port=4444L,browser="chrome")
remote_driver <- driver$client
remote_driver$open()
remote_driver$navigate("https://www.amazon.in/b/?_encoding=UTF8&node=1389401031&ref_=sv_top_elec_mega_1")
one<-remote_driver$findElement(using = "class", value="crwTitle")
k<- one$getElementText()
我试图创建一个循环

gettx <- lapply(one,function(one) {
  one$getElementText()
})
我所期望的是


Samsung Galaxy M30 (Gradation Blue, 4+64 GB)
Samsung Galaxy M20 (Ocean Blue, 4+64GB)
Redmi 6A (Black, 2GB RAM, 16GB Storage)

...........etc
我的意思是我需要返回所有具有相同类的元素

有什么帮助吗？

您可以：

remDr$navigate("https://www.amazon.in/b/?_encoding=
                UTF8&node=1389401031&ref_=sv_top_elec_mega_1")
elems <- remDr$findElements(using = "class", value="crwTitle")

lapply(elems, function(elem) {
  elem$getElementText()
})

remDr$导航（“https://www.amazon.in/b/?_encoding=
UTF8&node=138941031&ref=sv\U top\U elec\U mega\U 1“）

elems try:
one它对你有用吗？


Samsung Galaxy M30 (Gradation Blue, 4+64 GB)
Samsung Galaxy M20 (Ocean Blue, 4+64GB)
Redmi 6A (Black, 2GB RAM, 16GB Storage)

...........etc



remDr$navigate("https://www.amazon.in/b/?_encoding=
                UTF8&node=1389401031&ref_=sv_top_elec_mega_1")
elems <- remDr$findElements(using = "class", value="crwTitle")

lapply(elems, function(elem) {
  elem$getElementText()
})