tests/testthat/test-brainparc.R

In dfsp-spirit/brainloc: Find Region Names and Coordinates for a Point on the Human Brain

test_that("We can construct a brainparc from FreeSurfer data.", {

    sjd = get_subjects_dir(mustWork = FALSE);
    if(is.null(sjd)) {
        testthat::skip("No SUBJECTS_DIR found on system, but the FreeSurfer fsaverage subject is required for this test.");
    }

    bp = brainparc_fs(sjd, "fsaverage");
    testthat::expect_true("white" %in% names(bp$surfaces));
    testthat::expect_true("lh" %in% names(bp$surfaces$white));
    testthat::expect_true("rh" %in% names(bp$surfaces$white));

    testthat::expect_true("aparc" %in% names(bp$annots));
})


test_that("The get_surface_coords function works.", {
    sjd = get_subjects_dir(mustWork = FALSE);
    if(is.null(sjd)) {
        testthat::skip("No SUBJECTS_DIR found on system, but the FreeSurfer fsaverage subject is required for this test.");
    }

    bp = brainparc_fs(sjd, "fsaverage");

    expected = matrix(bp$surfaces$white$lh$vertices[10,], nrow = 1);
    coords = get_surface_coords(bp, 10, "lh");

    testthat::expect_equal(expected, coords);
})