# NOT RUN {
my_protein <- read_faa(system.file("extdata/bat_protein.fasta", package = "ampir"))
# Write a dataframe to a FASTA file
df_to_faa(my_protein, tempfile("my_protein.fasta", tempdir()))
# }
Run the code above in your browser using DataLab