tests/testthat/test-read_plink2_bin_data.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("minimal use, toy_v1_9_after_make-bed_after_make-pgen.pgen", {
  clear_plinkr_cache()
  base_input_filename <- tools::file_path_sans_ext(
    get_plinkr_filename("toy_v1_9_after_make-bed_after_make-pgen.pgen")
  )
  plink2_bin_data <- read_plink2_bin_data(
    base_input_filename = base_input_filename
  )
  expect_silent(check_plink2_bin_data(plink2_bin_data))
  expect_silent(check_empty_plinkr_folder())
})