tests/testthat/test_TrendLine_setters.R

context("TrendLine setters (class unions)")

testthat::test_that("setValueAxis", {
  testthat::expect_error(setValueAxis(.Object = trendLine()))
  testthat::expect_error(setValueAxis(.Object = trendLine(), valueAxis = 1))
  testthat::expect_error(setValueAxis(.Object = trendLine(), valueAxis = rep("a", 2)))
})

testthat::test_that("setValueAxisX", {
  testthat::expect_error(setValueAxisX(.Object = trendLine()))
  testthat::expect_error(setValueAxisX(.Object = trendLine(), valueAxisX = 1))
  testthat::expect_error(setValueAxisX(.Object = trendLine(), valueAxisX = rep("a", 2)))
})

Try the rAmCharts package in your browser

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

rAmCharts documentation built on Nov. 5, 2018, 5:05 p.m.