R/test-helpers.R

In BayesFluxR: Implementation of Bayesian Neural Networks

# If we are in a GitHub Action, we need to install Julia
test_setup <- function(...) {
  julia_path <- dirname(Sys.which("julia")[[1]])
  if (julia_path != "" && Sys.getenv("JULIA_HOME") == ""){
    cat(paste("Using", julia_path, "as JULIA_HOME\n"))
    BayesFluxR_setup(JULIA_HOME = julia_path, ...)
    return()
  }
  if (Sys.getenv("CI") != ""){
    BayesFluxR_setup(installJulia = TRUE, env_path = ".", ...)
  } else {
    choice <- Sys.getenv("BayesFluxTestInstallJulia")
    if (choice == ""){
      choice <- readline(prompt = "Install Julia for tests? Y/N: ")
      Sys.setenv("BayesFluxTestInstallJulia" = choice)
    }
    if (choice %in% c("Y", "y", "yes", "Yes")) {
      BayesFluxR_setup(installJulia = TRUE, env_path = ".", ...)
    }
    else {
      BayesFluxR_setup(installJulia = FALSE, env_path = ".", ...)
    }
  }
}