Dengue 2014 - Geocoding

 library(stringi)
leaflet(data = df) %>%
  addTiles() %>%
  addMarkers(lat=df$lat, lng=df$long, 
             clusterOptions = markerClusterOptions() ,
             popup = paste(df$RA,"<BR><BR>",df$X1)
  )