tests/testthat/test-list_deps.R

In tjtnew/reportfactory: Lightweight Infrastructure for Handling Multiple Rmarkdown Documents

library(fs)

test_that("list_deps works", {

  f <- new_factory(path = path_temp(), move_in = FALSE)
  on.exit(dir_delete(f))
  
  # copy test reports over (as this has inline code)
  file_copy(
    path("test_reports", "package_calls.Rmd"),
    path(f, "report_sources")
  )
  
  expected_deps_package_calls <- c("purrr", "readxl", "fs")
  expected_deps_example_report <- c("here", "incidence2")
  expected_deps <- c(expected_deps_package_calls, expected_deps_example_report)
  deps <- list_deps(f)
  expect_equal(sort(deps), sort(expected_deps))
})