tests/testthat/test-seg_stats.R

In dfsp-spirit/fsbrain: Managing and Visualizing Brain Surface Data

test_that("QC: outlier checks can be identified based on a data.frame with region-based values.", {
    testthat::skip_on_cran();
    skip_if(tests_running_on_cran_under_macos(), message = "Skipping on CRAN under MacOS, required test data cannot be downloaded.");
    fsbrain::download_optional_data();
    subjects_dir = fsbrain::get_optional_data_filepath("subjects_dir");
    skip_if_not(dir.exists(subjects_dir), message="Test data missing.");
    subjects_list = c('subject1', 'subject2');

    df = group.agg.atlas.native(subjects_dir, subjects_list, 'thickness', 'both', 'aparc');
    qc_res = qc.from.regionwise.df(df);
    testthat::expect_true(is.data.frame(df));
    testthat::expect_true(is.list(qc_res));

})


test_that("QC: outlier checks can be computed based on an atlas for both hemis.", {
    testthat::skip_on_cran(); # CRAN maintainers asked me to reduce test time on CRAN by disabling unit tests.
    skip_if(tests_running_on_cran_under_macos(), message = "Skipping on CRAN under MacOS, required test data cannot be downloaded.");
    fsbrain::download_optional_data();
    subjects_dir = fsbrain::get_optional_data_filepath("subjects_dir");
    skip_if_not(dir.exists(subjects_dir), message="Test data missing.");
    subjects_list = c('subject1', 'subject2');

    qc_res_hl = qc.for.group(subjects_dir, subjects_list, 'thickness', 'aparc');
    testthat::expect_true(is.list(qc_res_hl));
})