R language Need to calculate power of a risk ratio (relative risk) given a sample size and an assumed population risk ratio of 2.25

Question

In R, I need to calculate the power of a risk ratio (aka relative risk) given the sample size of the two groups, an assumed population risk ratio of 2.25, and a sample-calculate