R/project.R

In tidylab/tidylab.deployment: Deploy and Support a Standard 'Tidylab' Project

# getProject --------------------------------------------------------------
#
#' @title Get Project Settings
#'
#' @description Allow the user to examine a variety of global project variables
#'   instantiated by \code{setup} which affect the way in which R computes and
#'   displays its results.
#'
#' @inheritParams base::options
#'
#' @seealso \code{\link[base]{options}}.
#'
#' @family project setters and getters
#'
#' @return (`?`) The current value set for project variable \code{x}, or
#'   \code{NULL} if the variable is unset.
#' @export
#'
getProject <- function(x){
    value <- try(get(x, envir = .project), silent = TRUE)
    if(class(value) == "try-error") return(NULL) else return(value)
}