tests/testthat/test-fst_exists.R

In grattan/grattandata: Use Microdata at Grattan Institute

library(microbenchmark)

test_that("fst functions work", {

  skip_on_ci()
  skip_on_cran()

  stata_path <- find_filename("SIH17bh.dta")
  fst_path <- construct_fst_path(stata_path)
  
  expect_equal(file.exists(fst_path),
               fst_exists(stata_path))

  stata_file <- read_microdata("SIH17bh.dta", fast = FALSE)
  fst_file <- read_microdata("SIH17bh.dta", fast = TRUE)

  expect_true(all.equal(stata_file, fst_file, check.attributes = FALSE))

  set.seed(123)
  timings <- microbenchmark::microbenchmark(slow = read_microdata("SIH17bh.dta",
                                                  fast = FALSE),
                            fast = read_microdata("SIH17bh.dta",
                                                  fast = TRUE),
                                      times = 10)

  timing_ratio <- mean(timings$time[timings$expr == "slow"]) /
    mean(timings$time[timings$expr == "fast"])

  # We should expect the fst import to be (at least) twice as fast as .dta
  expect_gt(timing_ratio, 2)

})