RMarkdown Assignment

library(leaflet)
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.3     ✓ purrr   0.3.4
## ✓ tibble  3.0.6     ✓ dplyr   1.0.4
## ✓ tidyr   1.1.2     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(readr)
myLocs <- read_csv("myLocs.csv")

## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   lat = col_double(),
##   lon = col_double(),
##   ID = col_character()
## )

My Map

myMap = myLocs %>% 
  leaflet() %>% 
  addTiles() %>% 
  addMarkers(popup = ~ID)

## Assuming "lon" and "lat" are longitude and latitude, respectively

myMap