context("geocode")
test_that("geocode with google api", {
coords <- geocode('Beijing Railway Station', api = 'google', ocs = 'WGS-84',
messaging = TRUE)
expect_true(abs(coords$lat - 39.90358) < 5e-3)
expect_true(abs(coords$lng - 116.421) < 5e-3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.