Loaded the stop data as a layer in the map. Increased the render size…

… of the leaflet map in `server.R`.

Increased the render size of the `leaflet` map in the `ui` and added the dependency to `leaflet`.

BusMap/server.R

@@ -9,14 +9,20 @@
 
 library(shiny)
 library(leaflet)
+library(dplyr)
+
+all_stops <- readRDS('../data/output/all_stops.RDS')
+stations <- all_stops %>% filter(grepl(" STN ", stop))
 
 # Define server logic required to draw a histogram
 shinyServer(function(input, output) {
-   
+
   output$vanMap <- renderLeaflet({
-    map <- leaflet(width = 400, height = 400) %>% addTiles %>% 
+    map <- leaflet(width = 400, height = 800) %>% addTiles %>% 
       setView(lng = -122.8,
                    lat = 49.2,
-                   zoom = 11)
+                   zoom = 11) %>% 
+      addCircles(lat = stations$latitude,
+                 lng = stations$longitude)
   })
 })

BusMap/ui.R

@@ -6,7 +6,7 @@
 # 
 #    http://shiny.rstudio.com/
 #
-
+library(leaflet)
 library(shiny)
 
 # Define UI for application that draws a histogram
@@ -32,7 +32,7 @@ shinyUI(fluidPage(
 
     # Show a plot of the generated distribution
     mainPanel(
-       leafletOutput("vanMap")
+       leafletOutput("vanMap", height = 800)
     )
   )
 ))

vignettes/api_test.Rmd

@@ -71,6 +71,7 @@ get_stops <- function(x) {
   return(stop_locs)
 }
 
+
 all_stops <- centerpoints %>% 
   by_row(get_stops) %>% 
   select(.out) %>%