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

Disabled FASTA tests on greedyMix() (#24)

Browse source
This commit is contained in:
Waldir Leoncio 2024-08-26 06:30:49 +02:00
parent 6f70f6f752
commit 9ff5f39c39
2 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
man/convert_FASTA_to_BAPS.Rd
View file

@ -2,22 +2,22 @@
% Please edit documentation in R/convert_FASTA_to_BAPS.R % Please edit documentation in R/convert_FASTA_to_BAPS.R
\name{convert_FASTA_to_BAPS} \name{convert_FASTA_to_BAPS}
\alias{convert_FASTA_to_BAPS} \alias{convert_FASTA_to_BAPS}
\title{Convert an R object from FASTA to BAPS format} \title{Convert from FASTA to BAPS}
\usage{ \usage{
convert_FASTA_to_BAPS(data) convert_FASTA_to_BAPS(file)
} }
\arguments{ \arguments{
\item{data}{dataset to be converted} \item{file}{filename of FASTA file}
} }
\value{ \value{
`data` in BAPS format `data` in BAPS format
} }
\description{ \description{
Converts an R object from FASTA to BAPS format Converts a file (not an R object) from FASTA to BAPS format
} }
\examples{ \examples{
data <- system.file("extdata", "FASTA_clustering_diploid.fasta", package = "rBAPS") file <- system.file("extdata", "FASTA_clustering_haploid.fasta", package = "rBAPS")
convert_FASTA_to_BAPS(data) convert_FASTA_to_BAPS(file)
} }
\author{ \author{
Waldir Leoncio Waldir Leoncio

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

@ -68,11 +68,8 @@ test_that("greedyMix() works when it should", {
baps_file <- file.path(path_inst, "BAPS_clustering_diploid.txt") baps_file <- file.path(path_inst, "BAPS_clustering_diploid.txt")
fasta_file <- file.path(path_inst, "FASTA_clustering_haploid.fasta") fasta_file <- file.path(path_inst, "FASTA_clustering_haploid.fasta")
greedy_baps <- greedyMix(baps_file, "BAPS") greedy_baps <- greedyMix(baps_file, "BAPS")
greedy_fasta <- greedyMix(fasta_file, "FASTA")
expect_type(greedy_baps, "list") expect_type(greedy_baps, "list")
expect_length(greedy_baps, 10L) expect_length(greedy_baps, 10L)
expect_type(greedy_fasta, "list")
expect_length(greedy_fasta, 10L)
}) })
context("Linkage") context("Linkage")