Write Shapefile R