使用R中的循环从列表中写入多个.shps

I have a list (mylist) of about 2000 SpatialPolygonDataFrames and I want to export these .shps in one folder (my directory). I am trying to use a loop in order to access the list but it does not seems to work. How can I do this?) of about 2000 SpatialPol