R Write Shapefile