R/clone_gcae_repo.R

In richelbilderbeek/gcaer: Interface to GCAE

#' Clone the GCAE repo
#' @inheritParams default_params_doc
#' @return Nothing
#' @author Richèl J.C. Bilderbeek
#' @export
clone_gcae_repo <- function(
  gcae_options = create_gcae_options(),
  github_repo_url = get_default_github_repo_url(),
  github_repo_branch_name = get_default_github_repo_branch_name(),
  verbose = FALSE
) {
  gcaer::check_gcae_options(gcae_options)
  if (gcaer::has_cloned_gcae_repo(gcae_options = gcae_options)) {
    stop(
      "GCAE repo already has been cloned at ",
      gcae_options$gcae_folder
    )
  }
  if (verbose) {
    message("Before 'gert::git_clone'")
    message(
      "dir.exists(gcae_options$gcae_folder): ",
      dir.exists(gcae_options$gcae_folder)
    )
  }
  if (dir.exists(gcae_options$gcae_folder)) {
    unlink(gcae_options$gcae_folder, recursive = TRUE)
    testthat::expect_false(dir.exists(gcae_options$gcae_folder))
  }

  # 'gert::git_clone' expects that the folder does not exist
  gert::git_clone(
    url = github_repo_url,
    path = gcae_options$gcae_folder,
    branch = github_repo_branch_name,
    verbose = verbose
  )
  testthat::expect_true(dir.exists(gcae_options$gcae_folder))
}