g_lat<- c(45.52306, 40.26719, 34.05223, 37.38605, 37.77493)
g_long<- c(-122.67648,-86.13490, -118.24368, -122.08385, -122.41942)
df<- data.frame(point = c(1:5), longitude = g_long, latitude = g_lat)
library(sf)
Z19sYXQ8LSBjKDQ1LjUyMzA2LCA0MC4yNjcxOSwgMzQuMDUyMjMsIDM3LjM4NjA1LCAzNy43NzQ5MykKZ19sb25nPC0gYygtMTIyLjY3NjQ4LC04Ni4xMzQ5MCwgLTExOC4yNDM2OCwgLTEyMi4wODM4NSwgLTEyMi40MTk0MikKZGY8LSBkYXRhLmZyYW1lKHBvaW50ID0gYygxOjUpLCBsb25naXR1ZGUgPSBnX2xvbmcsIGxhdGl0dWRlID0gZ19sYXQpCgpsaWJyYXJ5KHNmKQ==