Skip to content
Snippets Groups Projects
Commit 0fb7d699 authored by Tom Rushby's avatar Tom Rushby
Browse files

Update with resource link

parent d8e8747c
No related branches found
No related tags found
1 merge request!3Cartograms example
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 0 deletions
lsoaExample.Rmd
+ 4
− 0
View file @ 0fb7d699
...@@ -26,6 +26,8 @@ head(sf_data) ...@@ -26,6 +26,8 @@ head(sf_data)
``` ```
Draw the map using leaflet ([useful resource](https://rstudio.github.io/leaflet/)) ...
```{r} ```{r}
# Useful lookup spatial reference for CRS # Useful lookup spatial reference for CRS
# https://spatialreference.org/ref/epsg/27700/ # https://spatialreference.org/ref/epsg/27700/
...@@ -85,6 +87,8 @@ Join to geography data ... ...@@ -85,6 +87,8 @@ Join to geography data ...
sf_data_elec <- left_join(sf_data,lsoa_elecData, by = c("LSOA11CD" = "Lower Layer Super Output Area (LSOA) Code")) sf_data_elec <- left_join(sf_data,lsoa_elecData, by = c("LSOA11CD" = "Lower Layer Super Output Area (LSOA) Code"))
``` ```
And re-draw the map ...
```{r} ```{r}
# create popup first (using htmltools) # create popup first (using htmltools)
sf_data_elec$popup_text <- sf_data_elec$popup_text <-
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment