R/app_prod.R

In ThinkR-open/prenomsapp: A Shiny App for French Names

Defines functions app_prod

Documented in app_prod

`%||%` <- function (x, y)
{
  if (is.null(x))
    y
  else x
}
#' return `TRUE` if in `production mode`
app_prod <- function(){
  getOption( "app.prod" ) %||% TRUE
}