Nothing
context("autoplot")
# skip("need new tests here")
test_that("basic", {
p <- autoplot(radf_dta, cv = mc)
expect_error(p, NA)
expect_s3_class(p, class = c("gg", "ggplot"))
expect_equal(unique(p$data$index), index(radf_dta, trunc = TRUE))
# Blanchard
blan <- radf_dta %>% autoplot(select_series = "blan")
expect_equal(blan$labels$title, "blan")
expect_equal(blan$layers %>% length(), 2)
# Dividends
div <- radf_dta %>% autoplot(nonrejected = TRUE, select_series = "div")
expect_equal(div$labels$title, "div")
expect_equal(div$layers %>% length(), 1) # no geom_rect
})
withr::with_options(
c(warn = 2),
test_that("wb", {
expect_error(autoplot(radf_dta, cv = wb), regexp = NA)
# TODO when nonrejected = FALSE this test fails
expect_error(autoplot(radf_dta_lag1, cv = wb, option = "sadf"), NA)
})
)
test_that("plot warnings & errors", {
expect_error(autoplot(radf_div, mc), "Cannot reject H0")
})
test_that("panel", {
expect_error(autoplot(radf_dta, cv = sb), NA)
expect_error(autoplot(radf_dta_lag1, cv = sb1), NA)
})
# Dates -------------------------------------------------------------------
test_that("dates", {
dating <- seq(as.Date("1991/10/01"), by = "month", length.out = 100)
index(radf_dta) <- dating
p <- autoplot(radf_dta)
expect_true(p$data$index %>% is.Date())
expect_equal(unique(p$data$index), dating[-c(1:19)])
# pds <- radf_dta %>% datestamp() %>% autoplot()
# expect_true(pds$data$Start %>% is.Date())
})
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.