getFakeMap <- function() {
map <- character()
class(map) <- c('ggmap','raster')
attr(map, "source") <- "osm"
attr(map, "maptype") <- "openstreetmap"
attr(map, "scale") <- 606250
attr(map, 'bb') <- data.frame(
ll.lat = 1, ll.lon = 2,
ur.lat = 3, ur.lon = 4
)
map
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.