Map of Fukui City, Japan

This is a map of Fukui City. I lived here for two years (2017-2019). Click on the icons to see where I lived and worked. You can also check out two of my favorite restaurants!

Below is the code that created the map:

library(leaflet)

#create icon using Fukui City emblem
fukui_icon <- makeIcon(
        iconUrl = "https://image.flaticon.com/icons/png/512/43/43907.png",
        iconWidth = 32, iconHeight =32)

#create data frame with places in Fukui City
fukui_places <- data.frame(
        name = c("<a href = 'https://photos.google.com/photo/AF1QipMXuxg6SJ5GjXeYh6tifYWN3bvVOWwf8NxglobQ'> My Old Apartment </a>", 
        "<a href = 'http://www.fukui-city.ed.jp/shimin-j/'> My Old Job </a>", 
        "<a href = 'https://twitter.com/ramenkado'> Best Ramen Ever </a>", 
        "<a href = 'https://kurasushi.j-server.com/LUCKURACO/ns/tl.cgi/https://www.kurasushi.co.jp/shopsearch/shopdetails/?id=256&SLANG=ja&TLANG=en&XMODE=0&XCHARSET=UTF-8&XJSID=0'> My Favorite Sushi Spot </a>"),
        lat = c(36.061473, 36.025620, 36.067751, 36.083427), 
        lng = c(136.196579, 136.188138, 136.241401, 136.226628))

#make leaflet interactive map
fukui_places %>%
        leaflet() %>%
        addTiles() %>%
        addMarkers(icon = fukui_icon, popup = fukui_places$name)