Data Product Leaflet Assignment

I live and work in Taiwan…

Please click the popup in the map…

• My Home: near Da-An Forest Park, Taipei (https://www.travel.taipei/zh-tw/attraction/details/190’)
• Med School: Nat’l Taiwan Univ Col of Med, Taipei (https://www.mc.ntu.edu.tw)
• My Working Hospital: China Med Univ Hospital, Taichung (https://www.cmuh.org.tw/Home/CmuhIndex_EN)

library(leaflet)
ntumcIcon <- makeIcon(
  iconUrl = "https://www.mc.ntu.edu.tw/secret/images/%E9%86%AB%E5%AD%B8%E9%99%A2%E9%99%A2%E5%BE%BD.png",
  iconWidth = 60, iconHeight = 60,
  iconAnchorX = 30, iconAnchorY = 30
)
cmuhIcon <- makeIcon(
  iconUrl = "http://61.66.117.51/Component/Content/Images/logo.png",
  iconWidth = 60, iconHeight = 48,
  iconAnchorX = 30, iconAnchorY = 24
)

my_map <-leaflet() %>%
  addTiles()
my_map <- my_map %>%
  
addMarkers(lat=25.030459, lng=121.535265,
             popup="My Home <a href='https://www.travel.taipei/zh-tw/attraction/details/190'> Da-An Forest Park </a>")
addMarkers(lat=25.039431, lng=121.519404, icon=ntumcIcon,
            popup="My Univ Med School: <a href='https://www.mc.ntu.edu.tw'>Nat'l Taiwan Univ Col of Med </a>", map = my_map)             

addMarkers(lat=24.153891, lng=120.683254, icon=cmuhIcon,
             popup="My Hospital: <a href='https://www.cmuh.org.tw/Home/CmuhIndex_EN'>China Med Univ Hosp </a>", map=my_map)