knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)

Map of Grade Crossings

library(leaflet)
library(tidyverse)
# to install the development version from Github, run
# devtools::install_github("rstudio/leaflet")
# url <- 'https://explore.dot.gov/vizql/w/HighwayRailCrossingInventoryDashboard/v/CrossingInventoryMapwithEquipment/vud/sessions/C60C8C649773441E96E80FE8088E3754-2:1/views/17147308109324429210_1621591212968976670?csv=true&summary=true'
# download.file(url, "data.csv")

df <- read_csv('data.csv')

df %>% 
  leaflet() %>%
  addTiles() %>% 
  addMarkers(clusterOptions = markerClusterOptions())