Update import_shp().R