inst/tinytest/test_smetlite.R

# Check with simple test SMET file
xx <- read_smet(system.file('extdata', 'test.smet', package = 'smetlite'))
attr(xx, 'file') <- 'test.smet'
expect_equal(xx, test_smet)

Try the smetlite package in your browser

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

smetlite documentation built on Nov. 10, 2023, 1:06 a.m.