#' 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.