Week 2-Peer-graded assignment-R Markdown & Leaflet

R Markdown

** Sample Map showing few cities of Texas **

Interactive map shown below !

#install.packages("leaflet")
library(leaflet)

mY_content <- paste(sep = "<br/>",
  "<b>Houston</b>",
  "Texas",
  ""
)

my_icon <- awesomeIcons(
  icon = 'ios-close',
  iconColor = 'navy',
  library = 'ion',
  markerColor = "red"
)

my_map <- leaflet() %>%
  addTiles() %>%  
  addMarkers(lat=32.779023, lng=-96.809170, popup="Dallas !")%>%
  addAwesomeMarkers(lat = 30.267885, lng = -97.748652, icon = my_icon, popup = "Austin !") %>%
  addPopups(lat = 29.755728, lng = -95.365762, mY_content, options = popupOptions(closeButton = FALSE) ) %>%
  addCircles(lng = -97.748652, lat=30.267885, radius = 700)
my_map

# Long/lats used above:
# 32.779023, -96.809170
# 30.267885, -97.748652
# 29.755728, -95.365762