draw_map.Rmd

---
title: "To draw a map"
author: "Matthew Upson"
date: "10 September 2015"
output: pdf_document
---
  
  [http://stackoverflow.com/questions/32466608/accessing-the-internet-with-knitr](http://stackoverflow.com/questions/32466608/accessing-the-internet-with-knitr)
  

```{r echo=TRUE,warning=FALSE,results='markup',comment="",message=FALSE}
library(ggmap)

Btrcup <- get_map(
  location = c(lon = 171.799669, lat = -42.851253), 
  zoom = 19,
  maptype = "hybrid"
  )

Btrcupmap <- ggmap(Btrcup)

Btrcupmap

```