How to separate fasta string into multiple rows keeing the number of columns unchanged in r?

Question

I am trying to read a fasta file and display the sequence as separate amino acids as a data frame. 1 seq = 1 column

This is what I\'ve got so far:

FAST