max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fixed several linting issues

Browse source
This commit is contained in:
Waldir Leoncio 2022-07-28 15:47:36 +02:00
parent 66d0f0c730
commit 835ac7e6b9
28 changed files with 180 additions and 175 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tests/testthat/test-greedyMix.R
View file

@ -1,11 +1,7 @@
context("Auxiliary functions to greedyMix")
# Defining the relative path to current inst -----------------------------------
if (interactive()) {
path_inst <- "../../inst/ext"
} else {
path_inst <- system.file("ext", "", package = "rBAPS")
}
path_inst <- system.file("ext", "", package = "rBAPS")
# Reading datasets -------------------------------------------------------------
baps_diploid <- read.delim(
@ -50,7 +46,6 @@ df_bam <- greedyMix(
data = file.path(path_inst, "bam_example.bam"),
format = "BAM",
)
# TODO #19: add example reading Genpop
test_that("Files are imported correctly", {
expect_equal(dim(df_fasta), c(5, 99))
expect_equal(dim(df_vcf), c(variants = 2, fix_cols = 8, gt_cols = 3))