tests/testthat/test-15-foreign.R

In neuroconductor/RNifti: Fast R and C++ Access to NIfTI Images

test_that("image objects from oro.nifti can be read", {
    imagePath <- system.file("extdata", "example.nii.gz", package="RNifti")
    
    skip_if_not_installed("oro.nifti")
    
    # The oro.nifti package warns about nonzero slope, which is nothing to worry about
    image <- suppressWarnings(oro.nifti::readNIfTI(imagePath))
    expect_equal(niftiHeader(image)$bitpix, 32L)
    expect_equal(asNifti(image)[40,40,30], 368)
})

test_that("image objects from tractor.base can be read", {
    imagePath <- system.file("extdata", "example.nii.gz", package="RNifti")
    
    skip_if_not_installed("tractor.base")
    
    reportr::setOutputLevel(reportr::OL$Warning)
    
    # NB: the $ operator shortcut can't be used since "image" isn't a niftiImage
    image <- tractor.base::readImageFile(imagePath)
    expect_equal(niftiHeader(image)$bitpix, 32L)
    expect_equal(asNifti(image)[40,40,30], 368)
    
    image <- tractor.base::readImageFile(imagePath, sparse=TRUE)
    expect_equal(niftiHeader(image)$bitpix, 32L)
    expect_equal(asNifti(image)[40,40,30], 368)
})