From af7f1fc51b6e420b78c2a6fc7eb800b23d9a7db6 Mon Sep 17 00:00:00 2001
From: Schultheis <hschult@kerckhoff.mpg.de>
Date: Fri, 9 Mar 2018 09:48:51 +0100
Subject: [PATCH] log_message: check whether logger exists, do nothing if not.

---
 R/global.R         | 6 ++++--
 man/log_message.Rd | 3 +++
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/R/global.R b/R/global.R
index 3845d2f..81f7ecf 100644
--- a/R/global.R
+++ b/R/global.R
@@ -22,10 +22,12 @@ set_logger <- function(logger, token = NULL) {
 #' @param level Set priority level of the message (number or character). See \code{\link[log4r]{levellog}}.
 #' @param token Use token bound to this identifier.
 #'
+#' @details Does nothing if logger doesn't exist.
+#'
 log_message <- function(message, level = c("DEBUG", "INFO", "WARN", "ERROR", "FATAL"), token = NULL) {
-  logger <- get(paste0("logger", token), envir = wilson.globals)
+  if(exists(paste0("logger", token), envir = wilson.globals)) {
+    logger <- get(paste0("logger", token), envir = wilson.globals)
 
-  if(!is.null(logger)) {
     switch(level,
       DEBUG = log4r::debug(logger, message),
       INFO = log4r::info(logger, message),
diff --git a/man/log_message.Rd b/man/log_message.Rd
index d94a471..eea02ae 100644
--- a/man/log_message.Rd
+++ b/man/log_message.Rd
@@ -17,3 +17,6 @@ log_message(message, level = c("DEBUG", "INFO", "WARN", "ERROR", "FATAL"),
 \description{
 logger message convenience function
 }
+\details{
+Does nothing if logger doesn't exist.
+}