inst/tinytest/test-12-files.R

In tractor.base: Read, Manipulate and Visualise Magnetic Resonance Images

reportr::setOutputLevel(Warning)
options(reportrStderrLevel=reportr::OL$Fatal)

# File functions
path <- system.file("extdata", "nifti", "maskedb0.nii.gz", package="tractor.base")
temp <- threadSafeTempFile()

expect_false(imageFileExists(temp))
copyImageFiles(path, temp)
expect_true(imageFileExists(temp))
removeImageFiles(temp)
expect_false(imageFileExists(temp))

# Windows doesn't properly support symlinking
if (tolower(Sys.info()[["sysname"]]) != "windows")
{
	symlinkImageFiles(path, temp)
	expect_true(imageFileExists(temp))
}

altPath1 <- file.path(threadSafeTempFile(), "test1")
altPath2 <- file.path(threadSafeTempFile(), "test2")

files <- imageFiles(path)
expect_true(files$present())
info <- files$info()[[1]]
expect_equal(info$format, "nifti_gz")
expect_equal(unname(info$headerFile), path)

expect_false(imageFiles(altPath1)$present())
files$copy(altPath1)
expect_true(imageFiles(altPath1)$present())
metadata <- readImageFile(altPath1, metadataOnly=TRUE)
expect_equal(metadata$getDimensions(), c(96,96,60))

files <- imageFiles(altPath1)
mapFile <- file.path(dirname(altPath1), "map.yaml")
expect_false(file.exists(mapFile))
expect_false(imageFiles(altPath2)$present())
files$map(altPath2)
expect_true(file.exists(mapFile))
expect_true(imageFiles(altPath2)$present())