R/brapi_message.R

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

### Internal function to pass a diagnostic message
brapi_message <- function(msg = "Using local test server.") {
  if (is.null(msg)) {return("")}
  if (!getOption("brapi_info", default = FALSE)) {return("")}
  return(base::message(msg))
}