tests/testthat/test-assoc_qt_on_plink2_bin_data.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("test data, PLINK2, PLINK2 bin data", {
  if (!is_plink_installed()) return()

  clear_plinkr_cache()

  assoc_qt_data <- create_demo_assoc_qt_data()
  assoc_qt_data$data <- convert_plink_text_data_to_plink2_bin_data(
    assoc_qt_data$data
  )
  assoc_qt_on_plink2_bin_data(
    assoc_qt_data = assoc_qt_data,
    assoc_qt_params = create_test_assoc_qt_params(),
    plink_options = create_plink_v2_0_options()
  )
  suppressMessages(
    expect_message(
      assoc_qt(
        assoc_qt_data = assoc_qt_data,
        assoc_qt_params = create_test_assoc_qt_params(),
        plink_options = create_plink_v2_0_options(),
        verbose = TRUE
      ),
      "you should be able to copy paste this"
    )
  )
  expect_silent(check_empty_plinkr_folder())
})