Takes two Point's and returns a point midway between them. The midpoint is calculated geodesically, meaning the curvature of the earth is taken into account.
Examples
pt1 <- '{
"type": "Feature",
"properties": {},
"geometry": {
"type": "Point",
"coordinates": [144.834823, -37.771257]
}
}'
pt2 <- '{
"type": "Feature",
"properties": {},
"geometry": {
"type": "Point",
"coordinates": [145.14244, -37.830937]
}
}'
geo_midpoint(pt1, pt2)
#> [1] "{\"geometry\":{\"coordinates\":[144.988569,-37.801197],\"type\":\"Point\"},\"properties\":{},\"type\":\"Feature\"}"