```r
# query<-"drop table if exists tmp; create table tmp as select st_transform(geom,4326) geom from sssi where sssi_name = 'Arne';"
# dbSendQuery(conn,query)
# query<-"select osm_id,st_multi(st_intersection(geom,way)) as geom from 
#  england_line, tmp
# where st_intersects(way,geom);"
# paths<-st_read(conn, query=query)
# 
# 
# mapview(paths)
```