Data Products week2

# Load library
library(leaflet)
library(googleVis)

## 
## Welcome to googleVis version 0.7.1
## 
## Please read Google's Terms of Use
## before you start using the package:
## https://developers.google.com/terms/
## 
## Note, the plot method of googleVis will by default use
## the standard browser to display its output.
## 
## See the googleVis package vignettes for more details,
## or visit https://mages.github.io/googleVis/.
## 
## To suppress this message use:
## suppressPackageStartupMessages(library(googleVis))

# Create the map
my_map <- leaflet()%>%
addTiles()
wits <- c("https://www.wits.ac.za/view_wits.html>wits<a/>")
addTiles(my_map)%>%
addMarkers(my_map,lat = -26.195616,lng =28.030525, popup = wits)

my_map