# NOT RUN {
poly <- '{
"type": "Feature",
"properties": {
"fill": "#0f0"
},
"geometry": {
"type": "Polygon",
"coordinates": [[
[-46.738586, -23.596711],
[-46.738586, -23.458207],
[-46.560058, -23.458207],
[-46.560058, -23.596711],
[-46.738586, -23.596711]
]]
}
}'
lawn_tesselate(poly)
xx <- jsonlite::fromJSON(lawn_data$polygons_within, FALSE)
lawn_tesselate(xx$features[[1]])
# }
# NOT RUN {
lawn_tesselate(xx$features[[1]]) %>% view
lawn_tesselate(poly) %>% view
# }
Run the code above in your browser using DataLab