tests/testthat/helper-git.R

In ropensci/gittargets: Data Version Control for the Targets Package

git_setup_init <- function() {
  stopifnot(identical(Sys.getenv("TAR_TEST"), "true"))
  targets::tar_script(targets::tar_target(x, 1))
  targets::tar_make(callr_function = NULL)
  gert::git_init()
  gert::git_add("_targets.R")
  gert::git_commit("First commit")
  tar_git_init()
  invisible()
}

skip_os_git <- function() {
  skip_on_cran()
  skip_on_os(os = "solaris")
  skip_if(!tar_git_ok(verbose = FALSE))
}