tests/testthat/test_import_db1b.R

library(skynet)

context("Test Import DB1B")

test_that("Import DB1B", {
  import_db1b(skynet_example("Coupon_2001Q1.csv"),
                      skynet_example("Ticket_2001Q1.csv"))
  expect_output(str(nrow(OD_2001Q1)), "1815")
  expect_length(OD_2001Q1, 21)
})

test_that("Test netImport",{
  expect_warning(netImport(skynet_example("Coupon_2001Q1.csv"),
                          skynet_example("Ticket_2001Q1.csv")))
})

Try the skynet package in your browser

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

skynet documentation built on June 17, 2022, 5:05 p.m.