函数内的 Rselenium 驱动程序方法答案

【问题标题】：Rselenium driver methods inside a function函数内的 Rselenium 驱动程序方法
【发布时间】：2017-04-02 10:02:35
【问题描述】：

我正在尝试在函数中使用一些方法，例如 sendKeysToElement()。我的问题类似于this，但即使我将参考远程驱动器作为函数参数传递，我仍然会收到错误消息。当不是函数时，我执行这段代码没有问题。

question <- "Which hormone concentrations are altered in patients with the Allan Herndon Dudley syndrome?"

searchMM <- function(x, remDr){
  remDr$findElement("css","textarea")$clearElement()
  remDr$findElement("css","textarea")$sendKeysToElement(list(x))
  remDr$findElement("css", "#note > input[type='button']:nth-child(12)")$clickElement()
  concept <- remDr$findElement("css","table:nth-child(31) pre")$getElementText()
  remDr$goBack()
  concept <- unlist(concept)
  test <- unlist(str_split(concept, "\n"))
}

searchMM(x=question, remDr=remDr)
test

运行该函数后，当我尝试查看test 中的内容时，我得到Error: object 'test' not found。就此而言，concept 也不存在。我做错了什么？

【问题讨论】：

您的函数中没有返回语句例如，您可以创建名为 output
感谢@MLEN 指出这一点！

标签： r rselenium

【解决方案1】：

question <- "Which hormone concentrations are altered in patients with the Allan Herndon Dudley syndrome?"

searchMM <- function(x, remDr){
  remDr$findElement("css","textarea")$clearElement()
  remDr$findElement("css","textarea")$sendKeysToElement(list(x))
  remDr$findElement("css", "#note > input[type='button']:nth-child(12)")$clickElement()
  concept <- remDr$findElement("css","table:nth-child(31) pre")$getElementText()
  remDr$goBack()
  concept <- unlist(concept)
  test <- unlist(str_split(concept, "\n"))

output <- list(test,concept)
return(output)
}

test <- searchMM(x=question, remDr=remDr)

【讨论】：