Alternatively use fs::dir_copy()
fs::dir_copy()
https://www.rdocumentation.org/packages/fs/versions/1.3.1/topics/copy
Also seems to be faster...