```r
hh_paths<-"select osm_id,highway,st_intersection(way,geom) geom from 
(select * from local_reserves where lnr_name = 'Hengistbury Head') s,
dorset_line l
where st_intersects(way,geom)"

paths<-st_read(conn, query=hh_paths)
qtm(paths)
```

<img src="OS_GIS_files/figure-html/unnamed-chunk-88-1.png" width="672" />