函数中的Rselenium驱动程序方法

我正在尝试在函数中使用一些方法，如

sendKeyStorement（）

。我的问题与类似，但即使我将引用远程驱动器作为函数参数传递，仍然会得到一个错误。当我不是一个函数时，我执行这段代码没有问题

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

---

question
question您的函数中没有返回语句，例如，您可以创建名为output的列表感谢@MLEN指出这一点！
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)