inst/tests/tibbletest.R

context("Data format")
library(farsr)

test_that("imported csv is correctly converted to tbl_df format", {
  acc_file <- system.file("extdata", "accident_2013.csv", package = "farsr")
  acc13 <- fars_read(acc_file)
  expect_that(acc13, is_a("tbl_df"))
})
HaydenMacDonald/farsr documentation built on May 27, 2019, 9:34 a.m.