# NOT RUN {
# random geographic points within bbox(10, 12, 45, 47)
library("sf")
set.seed(123)
lonlat <- data.frame(lon = runif(5, 10, 12),
lat = runif(5, 45, 47))
lonlat <- st_as_sf(lonlat, coords = c("lon","lat"))
gjson <- sf_to_geojson(lonlat)
# }
Run the code above in your browser using DataLab