如何解决Rselenium 循环闪亮
大家好,我希望有人能帮我解决这个问题 因此,不是像下面的代码所示那样循环 WEBelements 内的所有元素,我想是否有可能在闪亮的应用程序中实现一个小工具,我可以在其中选择一个数字,例如 WEBelements 的第 9 个元素并执行以下抓取
library(shiny)
library(RSelenium)
library(tidyverse)
library(rvest)
ui <- fluidPage(
actionButton("go","Scrape")
)
server <- function(input,output,session) {
observeEvent(input$go,{
rD <- rsDriver(browser=c("firefox"),port=4444L,verbose = F)
remDr <- rD[["client"]]
remDr <- rD$client
# Open browser session
remDr$open()
url<-"http://www.bvmt.com.tn/fr/entreprises/list"
remDr$navigate(url)
# Click on links and scrape some stuff
WEBelements <- remDr$findElements("id","pano-societe")
for (i in 1:length(WEBelements)) {
remDr$navigate(url)
WEBelements <- remDr$findElements("id","pano-societe")
WEBelements[[i]]$clickElement()
Sys.sleep(2)
webElem1 <- remDr$findElement("css selector","li.tt2:nth-child(14) > a:nth-child(1)")
webElem1$clickElement()
Sys.sleep(1)
elements2 <- remDr$findElements("class","savoir-plus-actu")
elements2[[1]]$clickElement()
Sys.sleep(2)
CurrentUrl<-remDr$getcurrenturl()
page<-read_html(CurrentUrl[[1]])
raw_list<- page %>%
html_nodes("a") %>%
html_attr("href") %>%
str_subset("\\.pdf") %>%
walk2(.,basename(.),download.file,mode = "wb")
}
# Close browser session
remDr$close()
})
}
shinyApp(ui,server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。