dwww Home | Show directory contents | Find package

test_that("can override defaults in _pkgdown.yml", {
  skip_if_no_pandoc()
  withr::local_temp_libpaths()

  pkg <- local_pkgdown_site(test_path("assets/figure"))

  callr::rcmd("INSTALL", pkg$src_path, show = FALSE, fail_on_status = TRUE)

  expect_output(build_reference(pkg, devel = FALSE))
  img <- path_file(dir_ls(path(pkg$dst_path, "reference"), glob = "*.jpg"))
  expect_setequal(img, c("figure-1.jpg", "figure-2.jpg"))

  expect_output(build_articles(pkg))
  img <- path_file(dir_ls(path(pkg$dst_path, "articles"), glob = "*.jpg", recurse = TRUE))
  expect_equal(img, "unnamed-chunk-1-1.jpg")
})

Generated by dwww version 1.15 on Wed Jun 26 01:23:09 CEST 2024.