Я пытаюсь запустить блестящее приложение, используя Rselenium, для создания карты температур (jpeg), которую я хотел бы визуализировать в R, или сохранить на моем компьютере.
В блестящем приложении есть вкладки, и мне удалось выбрать правильные вкладки, используя:
driver <- rsDriver(browser=c("chrome"), chromever="80.0.3987.106")
remDr <- driver[["client"]]
remDr$navigate("http://solo.bmap.ucla.edu/shiny/webapp/")
gene_toggle <- remDr$findElement(using = 'css', '[class="dropdown-toggle"]')
gene_toggle$clickElement()
select_heatmap <- remDr$findElement(using = 'css', '[data-value="panel-Heatmap"]')
select_heatmap$clickElement()
После выбора правильной вкладки следующим шагом является ввод списка генов через запятую. в текстовое поле и нажмите кнопку run
. Это текстовое поле уже заполнено геном EOMES
. Когда я нажимаю кнопку запуска с геном по умолчанию, используя:
run_button <- remDr$findElement(using = 'css','[class="btn btn-default action-button shiny-bound-input"]')
run_button$clickElement()
Создается тепловая карта с выражением EOMES
в базовом наборе данных.
Моя основная проблема заключается в определении того, как заполнить текстовое поле гена собственным списком генов, разделенных запятыми (без кавычек). Этот код выделяет и выделяет текстовое поле:
gene_select <- remDr$findElement(using = 'css', '[class="selectize-input items not-full has-options has-items"]')
gene_select$clickElement()
Однако я не могу понять, как заполнить текстовое поле генами, хранящимися в объекте top10
, то есть:
top10 <- "NEUROD6,NEUROD2"
gene_select$sendKeysToElement(list(top10))
OR
gene_select$sendKeysToElement(list("NEUROD6,NEUROD2"))
OR
gene_select$sendKeysToElement("NEUROD6,NEUROD2")
Буду очень признателен за любые советы о том, как go узнать об этом.
Вторичная проблема: Советы по извлечению сгенерированного изображения также приветствуются.