```r
# flnms<-paste("big_data/os_grid/OSGB_Grids-master/Shapefile",dir("big_data/os_grid/OSGB_Grids-master/Shapefile",pattern="shp"),sep="/")
# d<-st_read(flnms[7])
# write_sf(d,conn,"os5km")
# # d<-st_read(conn, query= "select o.* from os5km o, dorset d where st_intersects(o.geometry,d.geometry)")
# # mapview(d)
```