### raster data ###
library(sp)
library(raster)
m1 <- mapView(poppendorf[[5]])
### point vector data ###
m2 <- mapView(breweries91)
### add two mapview objects
m1 + m2 # final zoom level based on m2
'+'(m2, m1) # final zoom level based on m1
Run the code above in your browser using DataLab