tests/testthat/test-nested.R

test_that("nested works", {
    relations <- list(A = letters[1:3], B = c(letters[4:5], "A"))
    TS <- tidySet(relations)
    expect_true(is_nested(TS))
    TS2 <- remove_element(TS, "A")
    expect_false(is_nested(TS2))
})
llrs/BaseSet documentation built on Feb. 22, 2025, 9:52 p.m.