R: Compute shape area (with projection)