tests/testthat/test_fasta.R

library(ribiosIO)

mySeqs <- c("sample1 motif"="ATGCGTG",
            "sample2 motif"="GTGCGTA",
            "sample3 motif"="GCGTGGA")
tmpfile <- tempfile()

write_fasta(mySeqs, tmpfile)

myReadinSeqs <- read_fasta(tmpfile)

stopifnot(identical(myReadinSeqs, mySeqs))

Try the ribiosIO package in your browser

Any scripts or data that you put into this service are public.

ribiosIO documentation built on Feb. 20, 2026, 5:09 p.m.