问题描述
我正在寻找使用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。
任何建议将不胜感激。
解决方法
的确,您已经快到了,只需要在<input>
中选择gene_select
元素:
input <- gene_select$findChildElement(using = 'xpath',value = 'input')
input$sendKeysToElement(list("NEUROD2",key = "enter"))