diff --git a/cycling_route_analysis.Rmd b/cycling_route_analysis.Rmd
index 3e9afaa..10356b3 100644
--- a/cycling_route_analysis.Rmd
+++ b/cycling_route_analysis.Rmd
@@ -148,7 +148,7 @@ bike_lts_buffer <- st_buffer(st_intersection(bike_lts, cycle_boundary_poly), 20)
 
 bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, routes), length))
 
-bike_lts <- st_join(bike_lts, bike_lts_buffer %>% select(OBJECTID, student_use))
+bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID")
 ```
 
 Notes:
diff --git a/route_analysis.Rmd b/route_analysis.Rmd
index 07ba8c3..fe2902b 100644
--- a/route_analysis.Rmd
+++ b/route_analysis.Rmd
@@ -122,7 +122,7 @@ bike_lts_buffer <- st_buffer(st_intersection(bike_lts, walk_boundary_poly), 20)
 
 bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, routes), length))
 
-bike_lts <- st_join(bike_lts, bike_lts_buffer %>% select(OBJECTID, student_use))
+bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID")
 ```
 
 # Make Maps