diff --git a/lsoaExample.Rmd b/lsoaExample.Rmd
index 6818173699509a39345625e9fdcf4bf15d036cbb..71aa34d33d07a61f1bd759491cff0e750b6bada9 100644
--- a/lsoaExample.Rmd
+++ b/lsoaExample.Rmd
@@ -26,6 +26,8 @@ head(sf_data)
 
 ```
 
+Draw the map using leaflet ([useful resource](https://rstudio.github.io/leaflet/)) ...
+
 ```{r}
 # Useful lookup spatial reference for CRS
 # https://spatialreference.org/ref/epsg/27700/
@@ -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"))
 ```
 
+And re-draw the map ...
+
 ```{r}
 # create popup first (using htmltools)
 sf_data_elec$popup_text <-