A function to clone the content of an R package (perhaps other repositories too)

cloneRepo.R

cloneRepo <- function(from, to) {
    repoFiles <- list.files(cloneSourceFolder, all.files = TRUE, include.dirs = TRUE)
    repoFiles <- setdiff(repoFiles, c(".", "..", ".git"))
    dir.create(to, recursive = TRUE)
    for (rootFile in repoFiles) {
        message(rootFile)
        file.copy(
            from = file.path(from, rootFile),
            to = file.path(to),
            recursive = TRUE, overwrite = TRUE)
    }
}

# example
cloneSourceFolder <- "/Users/username/git/package"
cloneDestinationFolder <- "/Users/username/git/package_clone"

# usage
cloneRepo(cloneSourceFolder, cloneDestinationFolder)