This dataset represents road width for testing.
data(l_poly)
A SpatialPolygon
if (FALSE) { l <- routes_fast[13, ] l_poly <- geo_projected(l, rgeos::gBuffer, 8) plot(l_poly) plot(routes_fast, add = TRUE) # allocate road width to relevant line devtools::use_data(l_poly) }