tests/testthat/helper-SangerRead-FASTA-forward.R

In roblanf/sangeranalyseR: sangeranalyseR: a suite of functions for the analysis of Sanger sequence data in R

inputFilesPath <- system.file("extdata/", package = "sangeranalyseR")
SRfastaFFN <- file.path(inputFilesPath,
                        "fasta",
                        "SangerRead",
                        "Achl_ACHLO006-09_1_F.fa")
fastaReadFName <- "Achl_ACHLO006-09_1_F"
sangerReadFFa <- new("SangerRead",
                     inputSource        = "FASTA",
                     readFeature        = "Forward Read",
                     readFileName       = SRfastaFFN,
                     fastaReadName      = fastaReadFName,
                     geneticCode        = GENETIC_CODE)