函数内的 Rselenium 驱动程序方法

Question

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

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 也不存在。我做错了什么？

Answer 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)

函数内的 Rselenium 驱动程序方法

Rselenium driver methods inside a function

r

rselenium