Tennessee Sports

Tennessee Sports - 9/25/2020

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

TN_Arenas <- leaflet() %>%
    addTiles() %>%
    addMarkers(lat= 36.1555 , lng= -86.7738, popup="Nashville Predators") %>%
    addMarkers(lat= 35.1381 , lng= -90.0506, popup="Memphis Grizzlies") %>%
    addMarkers(lat= 35.1427 , lng= -90.0500, popup="Memphis Redbirds") %>%
    addMarkers(lat= 36.1665 , lng= -86.7713, popup="Tennessee Titans") %>%
    addMarkers(lat= 35.9549 , lng= -83.9250, popup="Tennessee Volunteers")
TN_Arenas