tests/testthat/test-subsetting.R

In gratia: Graceful 'ggplot'-Based Graphics and Other Functions for GAMs Fitted Using 'mgcv'

## Test subsetting methods `[`

## load packages
library("testthat")
library("mgcv")
library("gratia")

test_that("subsetting works for smooth_samples", {
    sm <- smooth_samples(m_gam, seed = 42)
    hsm <- head(sm)
    expect_identical(NROW(hsm), 6L)
    expect_true(! is.null(attr(hsm, "seed")))

    attrs <- attributes(hsm)
    expect_type(attrs, "list")
    expect_named(attrs, expected = c("names", "row.names", "class", "seed"))
})