if (FALSE) {
key <- 'your_api_key'
df_path <- read.table(text = "lat lon
-35.27801 149.12958
-35.28032 149.12907
-35.28099 149.12929
-35.28144 149.12984
-35.28194 149.13003
-35.28282 149.12956
-35.28302 149.12881
-35.28473 149.12836", header = T)
google_snapToRoads(df_path, key = key, interpolate = TRUE, simplify = TRUE)
}
Run the code above in your browser using DataLab