Peer-graded Assignment R Markdown and Leaflet

Context

Create a web page using R Markdown that features a map created with Leaflet. This maps represents my Summer 2021 trips and my favorite hostel of the whole trip and all time.

library(leaflet)

places <- data.frame(lat= c(38.736946, 51.509865, 44.86833, 45.083333, 45.328979, 44.11972, 43.801163462, 43.508133,43.173134, 43.9165, 42.64807, 42.42067, 42.485498058, 42.28639, 42.25333232, 42.205332 , 42.442574, 47.497913), long= c(-9.142685,-0.11809,13.84806, 13.6333308,14.457664, 15.24222,  15.970329452, 16.440193,  16.446329,  17.6722, 18.09216, 18.76825, 18.692830562, 18.84, 18.887996448,18.945766,  19.268646, 19.040236 ))


my_map <- leaflet() %>%
  addTiles() %>%  
  addAwesomeMarkers(lng=18.77186216, lat=42.423392213, popup='Best Hostel of the trip',
                    labelOptions=labelOptions(noHide=F, direction = "left", offset=c(50,0),
                          textsize="14px",
                          style = list("color" = "magenta", "font-family"="serif",
                          "font-style"="italic","border-color" = "rgba(1,1,1,0.1)"))) %>%
   addCircleMarkers(places$long, places$lat, color = 'red')
my_map