tests/testthat/test-define_height.R

In RtD3: Rt Visualization in D3

testthat::test_that('define_height works for different dataset combinations', {

  height <- define_height(geoData = 'a', rtData = list('a'=list(summaryData = '1', 'a', 'b', 'c', 'd')))

  testthat::expect_equal(height, 1325)

  height <- define_height(geoData = NULL, rtData = list('a'=list(summaryData = '1', 'a', 'b', 'c', 'd')))

  testthat::expect_equal(height, 1325 - 500)

  height <- define_height(geoData = 'a', rtData = list('a'=list(summaryData = NULL, 'a', 'b', 'c', 'd')))

  testthat::expect_equal(height, 1325 - 500)

  height <- define_height(geoData = 'a', rtData = list('a'=list(summaryData = '1', 'a', 'b', NULL, 'd')))

  testthat::expect_equal(height, (1325 - 225))

  height <- define_height(geoData = 'a', rtData = list('a'=list(summaryData = '1', 'a', NULL, NULL, 'd')))

  testthat::expect_equal(height, (1325 - 225 - 225))

})