R/muschelli_travis.R

In muschellij2/muschflow: Workflow for John 'Muschelli' Packages

#' Use Muschelli Travis file
#'
#' @param coverage_type CI tool to use.
#' Currently supports codecov and coveralls.
#'
#'
#' @return Invisible TRUE
#' @export
#' @importFrom yaml as.yaml yaml.load_file
#' @importFrom desc description
#' @importFrom git2r config
use_muschelli_travis = function(
  coverage_type = "codecov") {

  coverage_type = match.arg(
    coverage_type,
    choices =  c("codecov", "coveralls"))

  desc <- desc::description$new()
  out <- as.list(desc$get(desc$fields()))

  travis_file = ".travis.yml"
  # if (!file.exists(travis_file)) {
    usethis::use_travis()
  # }

  travis = yaml::yaml.load_file(travis_file)
  travis$after_success = c(
    travis$after_success,
    paste0('if [ "$TRAVIS_OS_NAME" == "linux" ]; then ',
           "Rscript -e 'covr::", coverage_type,
           "(type = \"all\")'; fi"))

  travis$warnings_are_errors = TRUE
  travis$before_deploy = c(
    travis$before_deploy,
    'if [ "$TRAVIS_OS_NAME" == "osx" ]; then rm -f *.tar.gz; fi')
  travis$r_check_args = paste0(
    travis$r_check_args,
    "--as-cran --install-args=--build")

  res = git2r::config()
  gh_username = res$global$user.name

  travis$deploy = list(
    provider = "releases",
    skip_cleanup = TRUE,
    file_glob = TRUE,
    file =  paste0(out$Package, "*.t*gz"),
    on = list(
      tags = TRUE,
      repo = paste0(gh_username, "/", out$Package)
    )
  )
  travis = yaml::as.yaml(travis, indent.mapping.sequence = TRUE)
  writeLines(travis, con = travis_file)

  return(invisible(TRUE))
}