# NOT RUN {
plot(geo_bb(routes_fast, distance = 100), col = "red")
plot(geo_bb(routes_fast, scale_factor = 0.8), col = "green", add = TRUE)
plot(geo_bb(sp::bbox(routes_fast)), add = TRUE) # works on bb also
plot(geo_bb(routes_fast, output = "points"), add = TRUE)
# Simple features implementation:
bb_sf1 <- geo_bb(routes_fast_sf, scale_factor = c(2, 1.5))
bb_sf2 <- geo_bb(routes_fast_sf, c(2, 1.5), distance = 100)
plot(bb_sf1)
plot(bb_sf2, add = TRUE)
plot(routes_fast, add = TRUE)
plot(geo_bb(routes_fast_sf, output = "points"), add = TRUE)
bb_matrix <- geo_bb(routes_fast, scale_factor = c(2, 1.1), output = "bb")
plot(routes_fast_sf[2:5, ], bbox = bb_matrix)
# }
Run the code above in your browser using DataLab