By just changing the geometry to polygons before the intersection you'll gain a lot of time in the processing.
You can use st_cast for both shapefiles
st_cast(mynameshape, "POLYGON")
LFG
- 59
- 9