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

Updated TODOs to match issues

Browse source
This commit is contained in:
Waldir Leoncio 2021-09-03 09:14:52 +02:00
parent 75df74cb2c
commit 448b3fe226
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/greedyMix.R
View file

@ -9,12 +9,12 @@ greedyMix <- function(data, format) {
out <- load_fasta(data) out <- load_fasta(data)
} else if (format == "vcf") { } else if (format == "vcf") {
stop("VCF files not yet supported." ) stop("VCF files not yet supported." )
# TODO #16: implement load_vcf() # TODO #17: implement load_vcf()
} else if (format == "sam") { } else if (format == "sam") {
stop("SAM files not yet supported." ) stop("SAM files not yet supported." )
# TODO #16: implement load_sam() # TODO #18: implement load_sam()
} else if(format == "genepop") { } else if(format == "genepop") {
# TODO #16: implement load_genepop() # TODO #19: implement load_genepop()
stop("GenePop files not yet supported." ) stop("GenePop files not yet supported." )
} else { } else {
stop("Format not supported.") stop("Format not supported.")

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

@ -41,9 +41,9 @@ df_fasta <- greedyMix(
data = paste(path_inst, "FASTA_clustering_haploid.fasta", sep="/"), data = paste(path_inst, "FASTA_clustering_haploid.fasta", sep="/"),
format ="fasta" format ="fasta"
) )
# TODO: add example reading VCF # TODO #17: add example reading VCF
# TODO: add example reading SAM # TODO #18: add example reading SAM
# TODO: add example reading Genpop # TODO #19: add example reading Genpop
test_that("Files are imported correctly", { test_that("Files are imported correctly", {
expect_equal(dim(df_fasta), c(5, 99)) expect_equal(dim(df_fasta), c(5, 99))
}) })