Update leaflet.R

attempting to add a legend