tests/testthat/script/checkReactiveSubmitReset.R

In ggraptR: Allows Interactive Visualization of Data Through a Web Browser GUI

cat("\nReactive submit, reset and missed colorAsFactor")

driver %>% getEl('#reactive') %>% click()
submitBtn <- wait_for("#submit:not(disabled)", driver)

# > check for treatColorAsFactor
test_that('treatColorAsFactor hides correct', 
          expect_true(is.null(driver %>% getEl('#treatColorAsFactor'))))
caratColorOpt <- driver %>% getSelectOptions('color') %>% 
  Filter(function(x) text(x) == 'carat', .)
if (length(caratColorOpt) != 1) 
  stop_externals('Impossible') else caratColorOpt[[1]] %>% click()
test_that('treatColorAsFactor appears correct', 
          expect_true(!is.null(wait_for('#treatColorAsFactor'))))
driver %>% getEl('#treatColorAsFactor') %>% click()
# <

# test_that('Unreactive submit waits correct', 
#           expect_false(wait_for_plot_ready(driver, T)))
driver %>% getEl('#submit') %>% click()
test_that('Unreactive submit works correct', 
          expect_true(driver %>% has_shiny_correct_state(
            pastePlus('^unreactive', 'colorFactors', shorten=F), NULL, NULL, 
            shortShotName=F)))

driver %>% getEl('#reactive') %>% click()  # turn reactive on
test_that('Submit button grays correct', {
  expect_true(!is.null(wait_for('#submit[disabled]')))
  driver %>% getEl('#reactive') %>% click()  # turn reactive off to check Reset inputs
  expect_true(!is.null(wait_for('#submit:not(disabled)')))
})

driver %>% getEl('#reset_input') %>% click()
test_that('Reset works correct', {
  expect_true(wait_for({
    text(driver %>% getEl('#color option[selected="selected"]')) == 'color' }, 
    catchStale=T, timeout = 20))
  expect_true(wait_for({ is.null(driver %>% getEl('#treatColorAsFactor')) }))
  expect_true(!is.null(wait_for('#submit[disabled]')))
  expect_true(has_shiny_correct_state(driver, '^reset', NULL, NULL, shortShotName=F))
})