Solve[x+((y*z)/(y+z))==R,z]