# Using two files in this package
gff.file <- file.path(path.package("microseq"),"extdata","small.gff")
genome.file <- file.path(path.package("microseq"),"extdata","small.fna")
# Reading the genome first
genome <- readFasta(genome.file)
# Retrieving sequences
gff.table <- readGFF(gff.file)
fa.tbl <- gff2fasta(gff.table, genome)
# Alternative, using piping
readGFF(gff.file) %>% gff2fasta(genome) -> fa.tbl
Run the code above in your browser using DataLab