Sreenivasulu Parimi
July 7, 2018
This is BMTC (Bangalore Metropolitan Transport Corporation) route map presentation. This application helps to draw a route map of bmtc route numbers.
library(leaflet)
#library(dplyr)
bmtc_routes <- read.csv("bmtc_routes.csv", stringsAsFactors = FALSE)
bmtc_300A <- bmtc_routes[bmtc_routes$route_no == "300A",]
bmtc_300A_route_map <- leaflet() %>%
addTiles()
bmtc_300A_route_map <- bmtc_300A_route_map %>%
addMarkers(
lat = as.numeric(bmtc_300A[3][[1]]),
lng = as.numeric(bmtc_300A[4][[1]]),
popup = as.character(bmtc_300A[2][[1]])
)
bmtc_300A_route_map