adha-rex

# this is a utility function to create a new project based on an existing, versioned project template. 
# get_project("my-new-targets-project", "targets-template")
get_project <- function(project_dir,
                        repo,
                        branch = "main",
                        open_project = TRUE) {
  # extract gh repo owner from repo
  if (!grepl("/", repo)) {
    repo_owner <- "adha-rex"
  } else {

adha-rex

create_targets_project <- function(project_dir) {
  # clone latest release version
  tdir <- tempdir()
  latest_release <- gh::gh("/repos/adha-rex/targets-template/releases/latest")
  latest_release_no <-  latest_release[['tag_name']]
  
  withr::with_dir(tdir, {
    system("git clone https://github.com/adha-rex/targets-template.git")
  })
  

adha-rex

get_mhr_forecasting_release <- function(destination_dir) {
  # clone latest release version
  tdir <- tempdir()
  latest_release <- gh::gh("/repos/adha-rex/mhr-forecasting/releases/latest")
  latest_release_no <-  latest_release[['tag_name']]
  
  withr::with_dir(tdir, {
    system("git clone https://github.com/adha-rex/mhr-forecasting.git")
  })