R/golem_utils_prod.R

In rpodcast/shinylego: Shiny application for creating LEGO mosiacs

#' Make a function dependent to dev mode
#' 
#' The function returned will be run only if `golem::app_dev()`
#'     returns TRUE.
#'
#' @param fun A function
#'
#' @export
make_dev <- function(fun){
  function(...){
    if ( golem::app_dev() ){
      fun(...)
    }
  }
}

`%||%` <- function(x, y){
  if (is.null(x)) y else x
}

#' Is the app in dev mode or prof mode?
#'
#' @return `TRUE` or `FALSE` depending on the status of `getOption( "golem.app.prod")`
#' @export
#'
#' @rdname prod

app_prod <- function(){
  getOption( "golem.app.prod" ) %||% FALSE
}

# Well, this one does the opposite 
#' @rdname prod
#' @export
app_dev <- function(){
  !golem::app_prod()
}

#' Functions already made dev devependant
#'
#' @rdname made_dev
#' @inheritParams base::cat
#' @export 
cat_dev <- make_dev(cat)

#' @rdname made_dev
#' @export 
#' @inheritParams base::print
print_dev <- make_dev(print)

#' @rdname made_dev
#' @export 
#' @inheritParams base::message
message_dev <- make_dev(message)

#' @rdname made_dev
#' @export 
#' @inheritParams base::warning 
warning_dev <- make_dev(warning)