leaflet_normandy

knitr::opts_chunk$set(echo = TRUE)
library(leaflet)
library(plyr)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:plyr':
## 
##     arrange, count, desc, failwith, id, mutate, rename, summarise,
##     summarize

## The following objects are masked from 'package:stats':
## 
##     filter, lag

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

beachesLatLong <- data.frame(
        lat = c(49.423, 49.3697, 49.3333, 49.31), 
        lng = c(-1.1819, -0.8711, -0.5333, -0.3286)
)

beachesLatLong %>%
        leaflet() %>%
        addTiles() %>%
        addMarkers(popup = c(
                "Utah Beach",
                "Omaha Beach",
                "Gold Beach",
                "Sword Beach"
        ))