tests/testthat/test_view.R

In neuroconductor-devel-releases/radtools: Utilities for Convenient Extraction of Medical Image Metadata

# Note: explicitly set environment variable NOT_CRAN to "true" (e.g. on command line) to run skipped tests

test_that("View slice - for CRAN", {
  expression_try(sample_dicom_img, view_slice(sample_dicom_img, 1))
  expression_try(sample_dicom_img, view_slice(sample_nifti_img, 1))

  # View a slice of a 2D image with view_slice
  expression_try(dicom_data_sbarre_brain, view_slice(dicom_data_sbarre_brain))

  # View a slice of a 2D image with view_slice_mat
  expression_try(dicom_data_sbarre_brain, view_slice_mat(img_data_to_mat(dicom_data_sbarre_brain)))

  # View a slice of a 3D image with view_slice_mat
  expression_try(nifti_data_avg152T1_LR, view_slice_mat(img_data_to_mat(nifti_data_avg152T1_LR), 10))

  # View a slice of a 4D image with view_slice_mat
  expression_try(nifti_data_filtered_func, view_slice_mat(img_data_to_3D_mat(nifti_data_filtered_func, 10), 5))

  # view_slice throws error for 4D image
  expect_error(view_slice(nifti_data_filtered_func, 5))

  # view_slice throws error for 3D image if no slice number is provided
  expect_error(view_slice(nifti_data_avg152T1_LR))

  # view_slice_mat throws error for 4D image
  expect_error(view_slice_mat(img_data_to_mat(nifti_data_filtered_func)))

  # view_slice_mat throws error for 4D image if no slice number is provided
  expect_error(view_slice_mat(img_data_to_3D_mat(nifti_data_filtered_func)))

  # view_slice_mat throws error for scalar or 1D matrix
  expect_error(view_slice_mat(0))
  expect_error(view_slice_mat(1:5))

})



test_that("View slices - skip on CRAN", {

  skip_on_cran()
  testthat::skip_on_travis()
  testthat::skip_on_appveyor()

  # view_slice throws error if there are no slices
  expect_error(view_slice(dicom_data_qin_hn_sr))

  # View a slice of a 3D image with view_slice
  view_slice(nifti_data_avg152T1_LR, 5)
  view_slice(dicom_data_prostate_mr, 5)

  # View a slice of a 3D image with view_slice_mat
  view_slice_mat(img_data_to_mat(dicom_data_prostate_mr), 10)

  # view_slice throws error if slice number is out of bounds
  expect_error(view_slice(dicom_data_prostate_mr, 1000))
  expect_error(view_slice(dicom_data_prostate_mr, 0))

  # view_slice_mat throws error if slice number is out of bounds
  expect_error(view_slice(img_data_to_3D_mat(dicom_data_prostate_mr, 1000)))
  expect_error(view_slice(img_data_to_3D_mat(dicom_data_prostate_mr, 0)))

})