2019-02-17 22:07:04 +01:00
|
|
|
context("test-apex-config")
|
|
|
|
|
|
|
|
test_that("config_bar works", {
|
|
|
|
|
|
|
|
column <- config_bar()
|
|
|
|
|
|
|
|
expect_is(column, "list")
|
|
|
|
expect_false(column$plotOptions$bar$horizontal)
|
|
|
|
|
|
|
|
bar <- config_bar(horizontal = TRUE)
|
|
|
|
|
|
|
|
expect_is(bar, "list")
|
|
|
|
expect_true(bar$plotOptions$bar$horizontal)
|
|
|
|
})
|
|
|
|
|
|
|
|
|
|
|
|
test_that("config_line works", {
|
|
|
|
|
|
|
|
line <- config_line()
|
|
|
|
|
|
|
|
expect_is(line, "list")
|
|
|
|
expect_identical(line$stroke$curve, "straight")
|
|
|
|
|
|
|
|
spline <- config_line(curve = "spline")
|
|
|
|
|
|
|
|
expect_is(spline, "list")
|
|
|
|
expect_identical(spline$stroke$curve, "spline")
|
|
|
|
|
|
|
|
datetime <- config_line(datetime = TRUE)
|
|
|
|
|
|
|
|
expect_is(spline, "list")
|
|
|
|
expect_identical(datetime$xaxis$type, "datetime")
|
|
|
|
})
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
test_that("choose_config works", {
|
|
|
|
|
2019-03-13 09:21:03 +01:00
|
|
|
mapdata <- list(
|
|
|
|
x = Sys.Date()
|
|
|
|
)
|
2019-02-17 22:07:04 +01:00
|
|
|
|
2019-03-13 09:21:03 +01:00
|
|
|
expect_identical(choose_config("bar", mapdata), config_bar(horizontal = TRUE))
|
|
|
|
expect_identical(choose_config("column", mapdata), config_bar(horizontal = FALSE))
|
2019-02-17 22:07:04 +01:00
|
|
|
|
2019-03-13 09:21:03 +01:00
|
|
|
expect_identical(choose_config("line", mapdata), config_line(datetime = TRUE))
|
|
|
|
expect_identical(choose_config("area", mapdata), config_line(datetime = TRUE))
|
|
|
|
expect_identical(choose_config("spline", mapdata), config_line(curve = "smooth", datetime = TRUE))
|
2019-02-17 22:07:04 +01:00
|
|
|
|
2019-03-13 09:21:03 +01:00
|
|
|
|
|
|
|
expect_identical(choose_config("plop", mapdata), list())
|
2019-02-17 22:07:04 +01:00
|
|
|
})
|
|
|
|
|
|
|
|
|