R/is_on_peregrine.R

In TheoPannetier/fabrika: Utility package for comrad

Defines functions is_on_peregrine

Documented in is_on_peregrine

#' Is code being run on peregrine?
#'
#' @export
is_on_peregrine <- function() {
  grepl(
    pattern = "pg-node",
    Sys.getenv("HOSTNAME")
  ) ||
    grepl(
      pattern = "peregrine.hpc",
      Sys.getenv("HOSTNAME")
    )
}