# NOT RUN {
#View(PolyData)
MyPolys=create_Polys(PolyData,Densify=TRUE)
plot(MyPolys,col='green',add=TRUE)
text(MyPolys$Labx,MyPolys$Laby,MyPolys$ID)
plot(MyPolys[MyPolys$ID=='three',],border='red',lwd=3,add=TRUE)
# }
Run the code above in your browser using DataLab