# NOT RUN {
cat(lawn_data$filter_features)
x <- '{
"type": "FeatureCollection",
"features": [
{
"type": "Feature",
"properties": {
"combine": "yes"
},
"geometry": {
"type": "Polygon",
"coordinates": [[[0, 0], [0, 1], [1, 1], [1, 0], [0, 0]]]
}
},
{
"type": "Feature",
"properties": {
"combine": "yes"
},
"geometry": {
"type": "Polygon",
"coordinates": [[[0, -1], [0, 0], [1, 0], [1, -1], [0,-1]]]
}
},
{
"type": "Feature",
"properties": {
"combine": "no"
},
"geometry": {
"type": "Polygon",
"coordinates": [[[1,-1],[1, 0], [2, 0], [2, -1], [1, -1]]]
}
}
]
}'
lawn_dissolve(x, key = 'combine')
# }
Run the code above in your browser using DataLab