tests/testthat/util.R

In ggmap: Spatial Visualization with ggplot2

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
}