viewwhere

viewwhere<-function(object,zoom = 17){
          require(leaflet)
		  
          if (is.null(object$lon) && is.null(object$lat))  
		     { stop("Object  must be have coordinates lat and lon slot." )};
            m = leaflet() %>% addTiles()
            m = m %>% setView(object$lon, object$lat, zoom = zoom)
            m %>% addPopups(object$lon,object$lat, paste0('The location of the object is here!'))
         return(m)

}

to play.... with leaflet Rstudio package