---
title: "Google way test"
author: "Duncan Golicher"
date: "18/02/2020"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE,warning = FALSE, message=FALSE)
```


```{r}
library(sf)
library(dplyr)
library(googleway)
key <- "AIzaSyA3yXWsYuxhN62iHM3w-1sf_OGalbaoz0s"


set_key( key )

library(rnaturalearthhires)
mp<-rnaturalearthhires::countries10
mp<-st_as_sf(mp)

mp %>% filter(CONTINENT=="Europe") ->mp
#google_map(data=mp) %>% add_polygons()

 google_map(location = c(50.7,-1.9),zoom = 10) %>% add_traffic()

```

