tests/testthat/script/checkDownloadPlotModal.R

cat("\nDownload plot and generate code buttons")

driver %>% getEl('#dlPlotOpenModalBtn') %>% click()
root <- wait_for('#modalDownloadPlotOptions[style="display: block;"]', driver)

test_that('#dlPlotOpenModalBtn button works fine', {
  expect_true(!is.null(wait_for('a#dlPlotHandler', root)))
})

root %>% getEl('button.close') %>% click()
wait_for('#modalDownloadPlotOptions[style="display: none;"]', driver)

Try the ggraptR package in your browser

Any scripts or data that you put into this service are public.

ggraptR documentation built on July 2, 2020, 2:30 a.m.