We eliminate the variable R or at least write R in terms of L and theta only.

Input := 


solR = Solve[ConeBase,R]

Output =


        -(L (-2 Pi + theta))

{{R -> -----------------------}}

       2 Pi (2 + 2 Pi - theta)