context("Running DECOMPRESS commands")
if (!have_dcmtk) {
if (!install_dcmtk(install_dir = install_dir)) {
install_dcmtk(install_dir = install_dir)
}
}
dcm_dir = system.file("extdata", package = "dcmtk")
ofiles = list.files(pattern = ".dcm$",
path = dcm_dir,
full.names = TRUE)
test_that("dcmdjpeg with files", {
expect_message({res = dcmdjpeg(file = ofiles)})
expect_silent({res = dcmdjpeg(file = ofiles, verbose = FALSE)})
expect_true(length(res) == length(ofiles))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.