# NOT RUN {
# a point
serbia <- '{
"type": "Feature",
"properties": {"color": "red"},
"geometry": {
"type": "Point",
"coordinates": [20.566406, 43.421008]
}
}'
lawn_flip(serbia)
# a featurecollection
pts <- lawn_random("points")
lawn_flip(pts)
# }
# NOT RUN {
lawn_data$points_average %>% view
lawn_flip(lawn_data$points_average) %>% view
lawn_data$polygons_average %>% view
lawn_flip(lawn_data$polygons_average) %>% view
# }
Run the code above in your browser using DataLab