library(leaflet)

Scope of the assignment

Create a web page using R Markdown that features a map created with Leaflet.

Host your webpage on either GitHub Pages, RPubs, or NeoCities.

Your webpage must contain the date that you created the document, and it must contain a map created with Leaflet. We would love to see you show off your creativity!

2021-05-23

pizzaIcon <- makeIcon(iconUrl ="http://www.icons101.com/icons/35/Swarm_App_Sticker_Icons_by_Sonya/128/Pizza-icon.png", iconWidth = 31*215/230, iconHeight = 31, iconAnchorX = 31*215/230/2, iconAnchorY = 16)

bestpizza <- data.frame(lat= c(45.89713044791158, 45.83627871325317, 45.69868556892022, 45.5461833892926), lng =c(14.197661835006375, 14.25994643814043, 13.997974839182323, 13.709363763834926 ))
pizzaSites <- c("<a href='https://www.picerija-zakelj.si/' >Picerija Zakelj</a>",
                "<a href='https://aviopub.si/' >Aviopub</a>",
                "<a href='https://www.etna.si/' >Etna</a>",
                "<a href='https://www.pizza33.si/page1.html' >Pizza33</a>")

bestpizza %>% leaflet() %>% addTiles() %>% addMarkers(icon=pizzaIcon, popup = pizzaSites)