# The googleVis library is designed to provide an interface to Google Charts
# It does however also include mapping functions.
library(googleVis)


# The Andrew dataset refers to Hurricane Andrew in 1992
data(Andrew)

# Set up the map
M1 <- gvisMap(Andrew, "LatLong" , "Tip",
              options=list(showTip=TRUE, showLine=TRUE, enableScrollWheel=TRUE,
                           mapType='hybrid', useMapTypeControl=TRUE,
                           width=800,height=800))

# display the map - automatically in a browser
plot(M1)


# The actual variable containing all of the details of the map we created is 
# in the variable M1 - HTML and Javascript
M1 

# contents of a single Tip
Andrew$Tip[1]