tests/testthat/test_amWind.R

testthat::context("amWind")
# Load data
data("data_wind")

testthat::test_that("amWind : reference example", {
  testthat::expect_silent({
    amWind(data_wind)
  })
})

testthat::test_that("amWind : Change color", {
  testthat::expect_silent({
    amWind(data = data_wind, col = "#0404B4")
    amWind(data = data_wind, col = c("#0404B4","#01DF01","#FFBF00"))
  })
})

testthat::test_that("amWind : Change backTransparency", {
  testthat::expect_silent({
    amWind(data = data_wind, col = c("#0404B4","#01DF01","#FFBF00"), backTransparency = 0.1)
    amWind(data = data_wind, col = c("#0404B4","#01DF01","#FFBF00"), backTransparency = 1)
    amWind(data = data_wind, col = c("#0404B4","#01DF01","#FFBF00"), backTransparency = c(0.1, 0.1, 1))
  })
})

Try the rAmCharts package in your browser

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

rAmCharts documentation built on Dec. 6, 2019, 5:11 p.m.