tests/testthat/test-spelling.R

In ggkodom: Visualize Individual Longitudinal Trajectories

test_that("spelling", {
    skip_on_cran()
    skip_on_covr()

    pkg <- test_path("../../")
    if (!file.exists(file.path(pkg, "DESCRIPTION"))) {
        pkg <- file.path(pkg, "00_pkg_src", .packageName)
    }

    expect_snapshot({
        spelling::spell_check_package(pkg)
    })
})