R/utils_tests.R

In pxweb: R Interface to PXWEB APIs

Defines functions get_root_path on_github_actions

# Functions only used for testing


on_github_actions <- function() identical(Sys.getenv("GITHUB_ACTIONS"), "true")

get_root_path <- function() {
  x <- getwd()
  if (on_github_actions()) x <- Sys.getenv("GITHUB_WORKSPACE")
  x
}

Try the pxweb package in your browser