```r
dorset_roads <- opq(bbox = 'Dorset') %>% # set bounding box via name
  add_osm_feature(key = 'highway') %>% # get roads
  add_osm_feature(key = 'name') %>% # include the name
  osmdata_sf() # return as a sf-object
```