Developing Data Products

What’s playing on Broadway

An interactive map of all the current broadway theatres and their shows

#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))