tests/testthat/test_glob.R

test_that("glob", {
    path <- file.path(".", "*.{R,r,S,s}")
    expect_equal(basename(glob(path, engine = "r")),
                 c("test_expand.R", "test_glob.R"))
})

Try the bracer package in your browser

Any scripts or data that you put into this service are public.

bracer documentation built on April 1, 2023, 12:24 a.m.