tests/testthat/test-PUWEB.R

test_that("read PUWEB file with template", {
  f <- system.file("extdata/PUWEB.TXT", package = "rb3")
  f <- copy_file_to_temp(f)

  res <- read_marketdata(f, template = "PUWEB")
  expect_s3_class(res, "parts")
  expect_s3_class(res[[1]], "data.frame")
})

Try the rb3 package in your browser

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

rb3 documentation built on April 14, 2023, 5:10 p.m.