在R中复制带有子文件夹的文件夹

I have a folder containing several subfolders. I just want to copy the whole folder with all subfolders and containing subfiles. Is there a simpler way then using file.copy() for each single subfolder? A more advanced function? I have a folder containing several subfolders.