# 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)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.