R/brapi_message.R

In mverouden/brapir-v2: Client to Access BrAPI Compliant Plant Breeding Databases

#' Helper function to pass a diagnostic message
#'
#' @author Maikel Verouden
#'
#' @noRd
#' @keywords internal
brapi_message <- function(msg = "Using local test server.") {
  if (is.null(msg)) {return("")}
  if (!getOption("brapi_info", default = FALSE)) {return("")}
  return(base::message(msg))
}