# NOT RUN {
# Define here the location on HDD for the example file
fpath <- system.file("extdata","example.fasta", package="GenomicTools.fileHandler")
# Import the example fasta file
fastaFile <- importFA(file=fpath)
newFasta <- fastaFile[1:5]
myfile <- file.path(tempdir(), "myLocs.fa")
exportFA(newFasta, file=myfile)
# }
Run the code above in your browser using DataLab