if (FALSE) {
map_key <- 'your_api_key'
google_map(key = map_key) %>%
add_overlay(north = 40.773941, south = 40.712216, east = -74.12544, west = -74.22655,
overlay_url = "https://www.lib.utexas.edu/maps/historical/newark_nj_1922.jpg")
url <- paste0("https://developers.google.com/maps/documentation/javascript",
"/examples/full/images/talkeetna.png")
google_map(key = map_key) %>%
add_overlay(north = 62.400471, south = 62.281819, east = -150.005608, west = -150.287132,
overlay_url = url)
}
Run the code above in your browser using DataLab