R Markdown and Leaflet

library(lubridate)

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

library(leaflet)
library(leaflet)
my_map <- leaflet()%>%
  addTiles() %>%  
  addMarkers(lng=-7.3403, lat=53.5307, popup="Domino's Pizza - Mullingar- Really good pizza in Town")
my_map