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

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

inputFilesPath <- system.file("extdata/", package = "sangeranalyseR")
SRfastaRFN <- file.path(inputFilesPath,
                        "fasta",
                        "SangerRead",
                        "Achl_ACHLO006-09_2_R.fa")
fastaReadRName <- "Achl_ACHLO006-09_2_R"
sangerReadRFa <- new("SangerRead",
                     inputSource        = "FASTA",
                     readFeature        = "Reverse Read",
                     readFileName       = SRfastaRFN,
                     fastaReadName      = fastaReadRName,
                     geneticCode        = GENETIC_CODE)