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")
Run the code above in your browser using DataLab