tests/testthat/test-shared_snv_table.R

test_that("expected output", {
  # Simplify sample dataframe
  df <- shared_snv_table(head(example_filtered_SNV_df))

  # Dataframe created has 15 columns
  expect_equal(ncol(df),15)
})
GreshamLab/vivaldi documentation built on Feb. 20, 2024, 12:32 a.m.