html - RSelenium:在文本框中输入值

Question

我希望使用 RSelenium 将一些基因名称输入到一个在线存储库中，该存储库为所述基因创建功能注释热图。
但是，我正在努力研究如何将基因列表输入到文本框中以生成热图。
这是文本框和与之关联的 html 的图像。

到目前为止我拥有的代码(见下文)可以成功导航到适当的页面，并选择适当的文本框，但我不知道如何输入文本，以便 html 代码底部的基因列表是添加到好像我是手动输入基因一样。请注意，您在图像文本框中看到的基因是手动输入的。

#####  Load driver and navigate to site  #####
driver <- rsDriver(browser=c("chrome"), chromever="80.0.3987.106")
remDr <- driver[["client"]]
remDr$navigate("http://solo.bmap.ucla.edu/shiny/webapp/")

## Select heatmap option
gene_toggle <- remDr$findElement(using = 'css',  '[class="dropdown-toggle"]')
gene_toggle$clickElement()
input <- remDr$findElement(using = 'css', '[data-value="panel-Heatmap"]')
input$clickElement()

## Input gene list to text box - not working yet - can't get text to enter properly
gene_select <- remDr$findElement(using = 'css', '[class="selectize-input items not-full has-options has-items"]')
gene_select$clickElement()

##### NOTE I HAVE TRIED THESE OPTION BELOW ....
gene_select$sendKeysToElement("NEUROD1")
gene_select$sendKeysToElement(list("NEUROD1"))
gene_select$sendKeysToElement(list("NEUROD1", key = "enter"))
gene_select$sendKeysToElement(list("NEUROD6, NEUROD2"))

我觉得我快到了，但不确定我是选择了错误的元素还是格式化了 sendKeysToElement命令错误。我对 RSelenium 还很陌生。
任何建议将不胜感激。

Answer 1

你确实快到了，只需要选择 <input>您的 gene_select 中的元素:

input <- gene_select$findChildElement(using = 'xpath', value = 'input')
input$sendKeysToElement(list("NEUROD2", key = "enter"))