write fasta file

write fasta file

write_fasta(x, fpath, width = 60)

Arguments

x

x
fpath

A fasta file path.
width

w

Examples

(temp <- dstr_rand_seq(n = 3, length = c(60, 90, 200), seed = 1))
#> class: dstr,bstr,character 
#> number of sequences: 3 
#> [1]      no name 1      : CCGTATTGGAAAGCTCGT....TGGTACGGCTCAAACGGC  60 
#> [2]      no name 2      : TCCCGCCTATCTCCCTTC....AGTGGGTGGGACGCAGAT  90 
#> [3]      no name 3      : GGCCGAGACACTCTTCAC....CTACCAGTTAGCGCCACG 200 
write_fasta(temp)
#>  [1] ">no name 1"                                                  
#>  [2] "CCGTATTGGAAAGCTCGTCTTAGACCACTCCGCATGTAGCTGTGGTACGGCTCAAACGGC"
#>  [3] ">no name 2"                                                  
#>  [4] "TCCCGCCTATCTCCCTTCTTCGCCTAGAAAAAGTTTCCTGGCCTGAACTGTGCCAAGACG"
#>  [5] "TCCATCGAAGGAAGTGGGTGGGACGCAGAT"                              
#>  [6] ">no name 3"                                                  
#>  [7] "GGCCGAGACACTCTTCACGCGTTCCTGGGTCATGTATGTGGCATCGATCTCAGCAGGACG"
#>  [8] "TATTTCGTTCCACGTGCACTCACGCGGGCCCGTACACACTTTCGCAACCTGCCTGAATGA"
#>  [9] "AACACACACTAGTCAACAAAAATCGGAAATGACCCTATACAATGCCACTGGCCTTTTTCT"
#> [10] "TCCTACCAGTTAGCGCCACG"