R/utils.R

Defines functions wordpress_envvar

wordpress_envvar <- function(x) {
  prefix <- "WORDPRESS_"
  x <- paste0(prefix, x)
  envvar <- Sys.getenv(x)
  if (identical(envvar, "")) {
    abort(
      paste("Missing required environment variable", x),
      class = "wordpress_invalid_envvar"
    )
  }
  envvar
}
shunsambongi/wordpress documentation built on Aug. 19, 2020, 12:10 a.m.