# Power analysis for biased coin in R

I have an experiment where I'd like to determine if a coin is biased. I'm using the binomial distribution to look at coin flips.

I've collected data from a sample of 30 flips and found that in 24 of the flips, the outcome was heads. I would like to calculate the power of this experiment. Here I am interested in only a one sided test:

binom.test(24, 30, p=0.5, alternative="greater")


How can I calculate the power of this analysis?