MyMap

library(leaflet)
library(dplyr)

## 
## Attaching package: 'dplyr'

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

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

my_map <- leaflet() %>%
  addTiles()

my_map <- my_map %>%
  addMarkers(lat = 39.197079, lng = -119.72375299999999,
  popup= "Eric's Office")

my_map