Aim:

To produce a interactive map with leaflet in a RMarkdown file which has a date in it less than two months old.

Is the date present?

Today’s data is 14th of Feb 2018 (02-14-2018)

What is in the map?

Map below shows the top 6 richest suburbs in Sydney Australia.

Treat the actual values themselves as fictious, data presented is for demo purposes only.

Q: How is it interactive?

You can interact with the map and move around and also click each of the suburbs to display the Mean Income (Annual) for each suburb.

I have saved a csv on my Github account to use as a data source.

Librarys used

library(“leaflet”)
library(“RCurl”)
library(“rio”)

df<-import("https://raw.githubusercontent.com/lesliebogdan/Developing-data-products/master/Week%202%20Assignment.csv")

my_map<-leaflet()
my_map<-addTiles(my_map)
my_map<-addCircleMarkers(my_map,lng=df$lng,lat=df$lat,popup = paste(df$Name, df$Income, sep=" - "))
my_map