Nothing
testthat::context("amRadar")
data("data_radar")
testthat::test_that("Basic example", {
testthat::expect_silent({
amRadar(data = data_radar)
})
})
testthat::test_that("Change color", {
testthat::expect_silent({
amRadar(data_radar, col = "#FF0000")
amRadar(data_radar, col = c("#0000FF", "#00FF00", "#FF0000"))
})
})
testthat::test_that("Change backTransparency", {
testthat::expect_silent({
amRadar(data_radar, backTransparency = 0.6)
amRadar(data_radar, backTransparency = c(0, 0.4, 0.6))
})
})
testthat::test_that("Change type", {
testthat::expect_silent({
amRadar(data_radar, type = "circles")
})
})
testthat::test_that("Change pch", {
testthat::expect_silent({
amRadar(data_radar, pch = "triangleRight")
amRadar(data_radar, pch = "triangleLeft")
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.