How can I create a new one shapefile, from the polygons touched by polygons of another one shapefile in r?

Question

I have two shapefiles, one has large polygons and the other with small polygons SpatialPolygonDataFrame, I have many large polygons SpatialPolygonDataFrame