1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
test_that("No leftover SVG figures", {
skip_on_cran()
skip_on_covr()
pkg_dir <- test_package_root()
figs <- dir(file.path(pkg_dir, "man", "figures"), pattern = "[.]svg$")
rd <- dir(file.path(pkg_dir, "man"), pattern = "[.]Rd$", full.names = TRUE)
rd_figs <- unlist(lapply(rd, function(x) {
grep("\\\\figure\\{", readLines(x), value = TRUE)
}))
rd_figs <- sub("^.*\\\\figure\\{(.*[.]svg).*$", "\\1", rd_figs)
expect_equal(
sort(figs),
sort(unique(rd_figs))
)
figs2 <- dir(file.path(pkg_dir, "man", "figures", "README"), pattern = "[.]svg$")
readme <- file.path(pkg_dir, "README.md")
readme_figs <- grep("man/figures/", readLines(readme), value = TRUE)
readme_figs <- sub("^.*man/figures/README/(.*[.]svg).*$", "\\1", readme_figs)
expect_equal(
sort(figs2),
sort(unique(readme_figs))
)
})
|
