如何批量处理将所有.sav转换为R中文件夹中的平面文件？

Below is my code to convert .sav to a flat file format that works well, my issue raises when I have more than 50 files. Any suggestions on how I can process all the files available in a folder in a loop ?Below is my code to convert .sav to a flat file