tests/testthat/test-convert_bed_table_to_pgen_table.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("use", {
  bed_table <- get_test_bed_table()
  pgen_table <- convert_bed_table_to_pgen_table(
    bed_table = bed_table
  )
  # .bed and .pgen tables are transposed,
  # see https://github.com/chrchang/plink-ng/issues/195
  attributes(bed_table)$plinkr_datatype <- NULL
  attributes(pgen_table)$plinkr_datatype <- NULL
  expect_identical(pgen_table, t(bed_table))
})

test_that("convert twice", {
  bed_table <- get_test_bed_table()
  pgen_table <- convert_bed_table_to_pgen_table(
    bed_table = bed_table
  )
  bed_table_again <- convert_pgen_table_to_bed_table(
    pgen_table = pgen_table
  )
  expect_identical(bed_table, bed_table_again)
})