## Not run:
# library(sp)
#
# data(meuse)
# coordinates(meuse) <- ~ x + y
# proj4string(meuse) <- CRS("+init=epsg:28992")
#
# ## include columns 1 and 2 only
# mapview(meuse, popup = popupTable(meuse, zcol = 1:2))
# ## End(Not run)
Run the code above in your browser using DataLab