#knitr::opts_chunk$set(echo = TRUE)
library(leaflet)
broadway <- read.csv("Broadway Shows and Locations.csv")
broadway %>%
leaflet() %>%
addTiles() %>%
addMarkers(lng = broadway$Longitude, lat = broadway$Latitude, popup = paste("Theatre:", broadway$Theater, "<br>", "Now Showing:", broadway$Current.Show))