test_that("package downloads plot has correct classes and attributes", { skip_if_not_installed("vcr") reset_cached_files("ava") reset_cached_files("deps") reset_cached_files("desc") skip_on_cran() # TODO: Move plt to cassette again when this issue is solved: # https://github.com/ropensci/vcr/issues/240 vcr::use_cassette("plot-dnl-1", { deps <- deepdep("xgboost", dependency_type = "Imports") }) plt <- plot_downloads(deps, from = as.Date("2020-07-01"), to = as.Date("2021-06-30")) # Is returned value a ggplot2 plot? expect_s3_class(plt, c("gg", "ggplot")) # Does title contain package name? expect_true(grepl("xgboost", plt$labels$title)) })