# NOT RUN {
x <- '{
"type": "Feature",
"properties": {},
"geometry": {
"type": "Polygon",
"coordinates": [[[0, 0], [2, 0], [0, 2], [2, 2], [0, 0]]]
}
}'
lawn_unkinkpolygon(x)
view(x)
view(lawn_unkinkpolygon(x))
# }
Run the code above in your browser using DataLab