# NOT RUN {
# points
## single point
pt <- '{"type":"Point","coordinates":[-75.343,39.984]}'
lawn_feature(pt)
## with properties
lawn_feature(pt, properties = list(foo = "bar"))
## many points in a list
pts <- list(
lawn_point(c(-75.343, 39.984))$geometry,
lawn_point(c(-75.833, 39.284))$geometry,
lawn_point(c(-75.534, 39.123))$geometry
)
lapply(pts, lawn_feature)
# }
Run the code above in your browser using DataLab