tests/testthat/test-plotmissingGT.R

In ruqianl/comapr: Crossover analysis and genetic map construction

test_that("Plot missing GT works", {
  or_geno <- snp_geno[,grep("X",colnames(snp_geno))]
  rownames(or_geno) <- paste0(snp_geno$CHR,"_",snp_geno$POS)
  or_geno[1,] <- rep("Fail",dim(or_geno)[2])
  cr_geno <- correctGT(or_geno,ref = snp_geno$C57BL.6J,
                      alt = snp_geno$FVB.NJ..i.)
  p1 <- plotMissingGT(cr_geno)
  p2 <- plotMissingGT(cr_geno,plot_type = "bar")
  p3 <- plotMissingGT(cr_geno,plot_type = "bar", plot_wg = "TRUE")
  p4 <- plotMissingGT(cr_geno,plot_wg = "TRUE")

  expect_true(class(p1)[1] == 'gg')
  expect_true(class(p2)[2] == 'ggplot')
  expect_true(class(p3)[2] == 'ggplot')
  expect_true(class(p4)[1] == 'gg')


})