Count the occurrences of a base and present the results in a vector

Question

For a random string of bases

TCTAGAGGATGCGCCGACTACCTATTTGATGCTTGACTAACGGTAACACAGTACGCT

I want to write a function in R that counts the number