context("news file")
test_that("news file is created", {
file <- system.file("extdata", "tests", "subsetCars.Rmd",
package = "DataPackageR"
)
datapackage_skeleton(
name = "subsetCars",
path = tempdir(),
code_files = c(file),
force = TRUE,
r_object_names = c("cars_over_20")
)
package_build(file.path(tempdir(), "subsetCars"))
news_lines <- readLines(file.path(tempdir(), "subsetCars", "NEWS.md"))
expect_true(sum(grepl("Package built in non-interactive mode", news_lines)) == 1) # nolint
unlink(file.path(tempdir(), "subsetCars"),
recursive = TRUE,
force = TRUE
)
expect_equal(DataPackageR:::.prompt_user_for_change_description(), "Package built in non-interactive mode") # nolint
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.