PROSAGA码农传奇-R-当Rselenium返回错误NoSuchElement时，继续循环搜索

当Rselenium返回错误NoSuchElement时，继续循环搜索

作者: 喜欢一个人
发布时间: 2023-08-22 09:41:13 (11月前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    这应该工作（虽然bind_rows将需要dplyr）：
  </p>
   <pre>
    <code>
      #add url
url <- "https://www.toimitilat.fi/toimitilahaku/?size_min=&size_max=&deal_type%5B%5D=1&language=fin&result_type=list&advanced=0&gbl=1&ref=main#searchresult"  
rD <- rsDriver()
remDr <- rD$client
remDr$navigate(url)

# making separate function retrieving the rent and handling exceptions
giveRent <- function(i) {
  Sys.sleep(0.86)
  tryCatch( {
    rent <- remDr$findElement(using = "css selector", paste("#objectList > div:nth-child(", i, ") > div.infoCont > div.priceCont", sep = ""))$getElementText()
    rent <- unlist(strsplit(rent[[1]][1], "\n"))
    rent <- rent[2]
    }
    , warning = function(e){rent <<- NA  }
    , error = function(e){rent <<- NA  })
  return(rent)
}

# adding rent to the dataframe in for-loop
rent_df <- c()
for(i in 8:13){ 
  rent <- giveRent(i)
  rent_subdf <- data.frame(rent)
  rent_df <- bind_rows(rent_df, rent_subdf)
}
print(rent_df)

</code>
  </pre>
</DIV>