Fixed object name in test

This commit is contained in:
Waldir Leoncio 2023-09-11 13:53:42 +02:00
parent 59fbb0a167
commit e3f14ee97d

View file

@ -42,7 +42,7 @@ raw_vcf <- importFile(
format = "VCF", format = "VCF",
verbose = FALSE verbose = FALSE
) )
df_bam <- importFile( raw_bam <- importFile(
data = file.path(path_inst, "bam_example.bam"), data = file.path(path_inst, "bam_example.bam"),
format = "BAM", format = "BAM",
) )
@ -56,7 +56,7 @@ test_that("Files are imported correctly", {
format = "SAM", format = "SAM",
) )
) )
expect_equal(length(df_bam[[1]]), 13) expect_equal(length(raw_bam[[1]]), 13)
}) })
df_fasta <- greedyMix( df_fasta <- greedyMix(