update r script to fix geojson projection bug