This website was created on Jan 20 2020
library(leaflet)
#=============
# Create Icons
#=============
dogparkIcon <- makeIcon(
iconUrl = "https://static.thenounproject.com/png/1657291-200.png",
iconWidth = 40*215/230, iconHeight = 40,iconAnchorX = 40*215/230/2, iconAnchorY = 16)
vetIcon <- makeIcon(
iconUrl = "http://pluspng.com/img-png/vet-clinic-png-kings-highway-animal-clinic-in-san-marcos-has-a-monthly-vaccine-clinic-kyle-animal-hospital-has-a-twice-monthly-clinic-448.png",
iconWidth = 31*215/230, iconHeight = 31,iconAnchorX = 31*215/230/2, iconAnchorY = 16)
nodogIcon <- makeIcon(
iconUrl = "https://image.flaticon.com/icons/png/512/2195/2195397.png",
iconWidth = 31*215/230, iconHeight = 31,iconAnchorX = 31*215/230/2, iconAnchorY = 16)
LakeIcon <- makeIcon(
iconUrl = "https://image.flaticon.com/icons/png/512/2046/2046214.png",
iconWidth = 31*215/230, iconHeight = 31,iconAnchorX = 31*215/230/2, iconAnchorY = 16)
dogIcon <- makeIcon(
iconUrl = "https://cdn1.iconfinder.com/data/icons/city-flat-2/512/people_person_woman_walk_dog-512.png",
iconWidth = 31*215/230, iconHeight = 31,iconAnchorX = 31*215/230/2, iconAnchorY = 16)
#============
# Create Map
#============
Avalon <- leaflet()%>%
addTiles()%>%
addMarkers(lat= 9.930848,lng= -84.200108,popup = "Avalon Country Club")%>%
addMarkers(lat=9.931271, lng=-84.197930, popup = "Dog Park",icon = dogparkIcon)%>%
addMarkers(lat=9.930690, lng=-84.200498, popup = "Veterinarian", icon=vetIcon)%>%
addMarkers(lat=9.930267, lng = -84.198254, popup = "Pool", icon = nodogIcon)%>%
addMarkers(lat=9.929032, lng = -84.198607, popup = "Gym", icon = nodogIcon)%>%
addMarkers(lat=9.929955, lng = -84.199712, popup = "Lake", icon = LakeIcon)%>%
addMarkers(lat=9.930054, lng = -84.199828, popup = "Dogs Allowed", icon = dogIcon)%>%
addMarkers(lat=9.929437, lng = -84.198692, popup = "Dogs Allowed", icon = dogIcon)%>%
addMarkers(lat=9.929419, lng = -84.197898, popup = "Dogs Allowed", icon = dogIcon)
Avalon