Solve[y == v0 Sin[t] R/(v0 Cos[t]) - 1/2 g (R/(v0 Cos[t]))^2, R]