```r
# lat<- 50.69
# lon<--2.05
# 
# query<-sprintf("select osm_id, way geom FROM England_line
# WHERE ST_DWITHIN(way::geography, ST_MAKEPOINT(%s,%s)::geography,5000) ",lon,lat)
# paths<-st_read(conn, query=query)
# 
# mapview(paths)
```