R/is_utils.R

In yonicd/covrpage: Create a Readme Summary Page for GitHub testthat and covr Outputs

Defines functions is_gh is_travis is_git

is_git <- function(){
  system('git rev-parse --is-inside-work-tree',intern = TRUE)=='true'
}
is_travis <- function() {
  identical(Sys.getenv("TRAVIS"), "true")
}

is_gh <- function() {
  nzchar(Sys.getenv("GITHUB_ACTION"))
}