Developing Data Projects, Week 2 Course Project

Portillo’s Locations using Leaflet

Interact below to see all 63 Portillo’s locations in the United States!

If you are unfamiliar with Portillo’s, Wikipedia states: Portillo’s Restaurant Group, Inc. is an American fast casual restaurant chain that specializes in serving Chicago-style food such as hot dogs, Maxwell Street Polish, and Italian Beef. The company was founded by Dick Portillo on April 9, 1963 in Villa Park, Illinois under the name “The Dog House”.

require(leaflet)
portillos <- read.csv("portillos.csv", header = TRUE, colClasses = c(rep("character", 6)))
portillos$Lat <- as.numeric(as.character(portillos$Lat))
portillos$Lng <- as.numeric(as.character(portillos$Lng))
portillos_icon <- makeIcon(
      iconUrl = "https://media.glassdoor.com/sqll/30799/portillo-s-restaurant-group-squarelogo-1508171795645.png",
      iconWidth = 30, iconHeight = 30, iconAnchorX = 15, iconAnchorY = 15)
portillos_website <- c("<a href = 'https://www.portillos.com'>Portillos</a>")

portillos %>% leaflet() %>%
      addTiles() %>%
      addMarkers(clusterOptions = markerClusterOptions(), icon = portillos_icon, popup = paste0(portillos$City, ", ", portillos$State, "<br>", portillos_website))