tests/testthat/test-read.R

test_that("pl_read works", {
  actual <- pl_read(system.file('extdata/ri2018_2020Style.pl', package = 'PL94171'))

  expect_equal(pl_ex, actual)
})

Try the PL94171 package in your browser

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

PL94171 documentation built on Sept. 12, 2022, 1:06 a.m.