---
title: "Google care homes"
author: "Duncan Golicher"
date: "23/02/2021"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(googleway)
key <- "AIzaSyA3yXWsYuxhN62iHM3w-1sf_OGalbaoz0s"
library(giscourse)
con<-sconnect11()
care_homes<-st_read(con,"carehomes")
disconnect(con)
```

```{r}
google_map(key=key,data=care_homes, zoom=10 ) %>% add_markers(care_homes,opacity=1)
```

