Rselenium 循环闪亮

编程问答 2022-05-03

问题描述

大家好，我希望有人能帮我解决这个问题 因此，不是像下面的代码所示那样循环 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 (将#修改为@）

rrrseleniumshiny