Logger: setters return old value, coerce all msg components to string before concatenating

base/logger/DESCRIPTION

@@ -1,6 +1,6 @@
 Package: PEcAn.logger
 Title: Logger Functions for 'PEcAn'
-Version: 1.8.3
+Version: 1.8.4
 Authors@R: c(person("Rob", "Kooper", role = c("aut", "cre"),
                      email = "kooper@illinois.edu"),
              person("Alexey", "Shiklomanov", role = c("aut"),

base/logger/NEWS.md

@@ -1,3 +1,8 @@
+# PEcAn.logger 1.8.4 (unreleased)
+
+- All `logger.set*` functions now invisibly return the previously set value. This can be handy for restoring settings after a temporary change.
+- Multipart logger messages passed in `...` now get a more robust conversion to string before concatenating, hopefully giving nicer results for nontext objects such as dates and lists.
+
 # PEcAn.logger 1.8.3
 
 - Maintenance release with no user-visible changes.

base/logger/R/logger.R

@@ -4,12 +4,12 @@
 .utils.logger$stderr <- TRUE
 .utils.logger$quit <- FALSE
 .utils.logger$level <- 0
-.utils.logger$width <- ifelse(getOption("width") < 10, 
-                              getOption("width"), 
+.utils.logger$width <- ifelse(getOption("width") < 10,
+                              getOption("width"),
                               getOption("width") - 5)
 
 ##' Prints a debug message.
-##' 
+##'
 ##' This function will print a debug message.
 ##'
 ##' @param msg the message that should be printed.
@@ -26,7 +26,7 @@ logger.debug <- function(msg, ...) {
 
 
 ##' Prints an informational message.
-##' 
+##'
 ##' This function will print an informational message.
 ##'
 ##' @param msg the message that should be printed.
@@ -43,7 +43,7 @@ logger.info <- function(msg, ...) {
 
 
 ##' Prints a warning message.
-##' 
+##'
 ##' This function will print a warning message.
 ##'
 ##' @param msg the message that should be printed.
@@ -60,7 +60,7 @@ logger.warn <- function(msg, ...) {
 
 
 ##' Prints an error message.
-##' 
+##'
 ##' This function will print an error message.
 ##'
 ##' @param msg the message that should be printed.
@@ -76,11 +76,11 @@ logger.error <- function(msg, ...) {
 } # logger.error
 
 
-##' Prints an severe message and stops execution.
-##' 
+##' Prints a severe message and stops execution.
+##'
 ##' This function will print a message and stop execution of the code. This
 ##' should only be used if the application should terminate.
-##' 
+##'
 ##' set \code{\link{logger.setQuitOnSevere}(FALSE)} to avoid terminating
 ##' the session. This is set by default to TRUE if interactive or running
 ##' inside Rstudio.
@@ -96,13 +96,13 @@ logger.error <- function(msg, ...) {
 ##' }
 logger.severe <- function(msg, ..., wrap = TRUE) {
   logger.message("SEVERE", msg, ...)
-  
+
   # run option
   error <- getOption("error")
   if (!is.null(error)) {
     eval(error)
   }
-  
+
   # quit if not interactive, otherwise use stop
   if (.utils.logger$quit) {
     quit(save = "no", status = 1)
@@ -113,11 +113,13 @@ logger.severe <- function(msg, ..., wrap = TRUE) {
 
 
 ##' Prints a message at a certain log level.
-##' 
-##' This function will print a message. This is the function that is responsible for
-##' the actual printing of the message.
 ##'
-##' This is a place holder and will be later filled in with a more complex logging set
+##' This function will print a message. This is the function that is responsible
+##' for the actual printing of the message.
+##'
+##' This is a place holder and will be later filled in with a more complex
+##' logging set
+##'
 ##' @param level the level of the message (DEBUG, INFO, WARN, ERROR)
 ##' @param msg the message that should be printed.
 ##' @param ... any additional text that should be printed.
@@ -138,24 +140,28 @@ logger.message <- function(level, msg, ..., wrap = TRUE) {
     if (length(func) == 0) {
       func <- "console"
     }
-    
+
     stamp.text <- sprintf("%s %-6s [%s] :", Sys.time(), level, func)
-    long.msg <- stringi::stri_trans_general(paste(c(msg, ...), collapse = " "), "latin-ascii")
+    args <- sapply(list(...), FUN = toString)
+    long.msg <- stringi::stri_trans_general(
+      paste(c(msg, args), collapse = " "),
+      "latin-ascii"
+    )
     if (nchar(long.msg) > 20 && wrap) {
-      new.msg <- paste("\n", strwrap(long.msg, width = .utils.logger$width, 
+      new.msg <- paste("\n", strwrap(long.msg, width = .utils.logger$width,
                                      indent = 2, exdent = 2), collapse = " ")
     } else {
       new.msg <- long.msg
     }
     text <- paste(stamp.text, new.msg, "\n")
-    
+
     if (.utils.logger$console) {
       if (.utils.logger$stderr) {
         cat(text, file = stderr())
       } else {
         cat(text, file = stdout())
       }
-      
+
     }
     if (!is.na(.utils.logger$filename)) {
       cat(text, file = .utils.logger$filename, append = TRUE)
@@ -165,7 +171,7 @@ logger.message <- function(level, msg, ..., wrap = TRUE) {
 
 
 ##' Configure logging level.
-##' 
+##'
 ##' This will configure the logger level. This allows to turn DEBUG, INFO,
 ##' WARN and ERROR messages on and off.
 ##'
@@ -181,6 +187,7 @@ logger.message <- function(level, msg, ..., wrap = TRUE) {
 logger.setLevel <- function(level) {
   original_level <- logger.getLevel()
   .utils.logger$level <- logger.getLevelNumber(level)
+
   invisible(original_level)
 } # logger.setLevel
 
@@ -217,7 +224,7 @@ logger.getLevelNumber <- function(level) {
 
 
 ##' Get configured logging level.
-##' 
+##'
 ##' This will return the current level configured of the logging messages
 ##'
 ##' @return level the level of the message (ALL, DEBUG, INFO, WARN, ERROR, OFF)
@@ -247,54 +254,70 @@ logger.getLevel <- function() {
 
 
 ##' Configure logging to console.
-##' 
+##'
 ##' Should the logging to be printed to the console or not.
 ##'
 ##' @param console set to true to print logging to console.
-##' @param stderr set to true (default) to use stderr instead of stdout for logging
+##' @param stderr set to true (default) to log to stderr instead of stdout
+##' @return Invisibly, a list of the previously set values of `console`
+##'   and `stderr`. This can be used to restore the previous settings after a
+##'   temporary change.
 ##' @export
 ##' @author Rob Kooper
 ##' @examples
 ##' \dontrun{
 ##' logger.setUseConsole(TRUE)
 ##' }
 logger.setUseConsole <- function(console, stderr = TRUE) {
+  old <- list(console = .utils.logger$console, stderr = .utils.logger$stderr)
   .utils.logger$console <- console
   .utils.logger$stderr <- stderr
+
+  invisible(old)
 } # logger.setUseConsole
 
 
 ##' Configure logging output filename.
-##' 
+##'
 ##' The name of the file where the logging information should be written to.
 ##'
-##' @param filename the file to send the log messages to (or NA to not write to file)
+##' @param filename the file to send the log messages to
+##'  (or NA to not write to file)
+##' @return Invisibly, the previously set filename.
+##'   This can be used to restore settings after a temporary change.
 ##' @export
 ##' @author Rob Kooper
 ##' @examples
 ##' \dontrun{
 ##' logger.setOutputFile('pecan.log')
 ##' }
 logger.setOutputFile <- function(filename) {
+  old <- .utils.logger$filename
   .utils.logger$filename <- filename
+
+  invisible(old)
 } # logger.setOutputFile
 
 
 ##' Configure whether severe should quit.
-##' 
-##' The default is for a non-interactive session to quit. Setting this to false is
-##' especially useful for running tests when placed in \code{inst/tests/test.<fn>.R}, 
-##' but is not passed from \code{tests/run.all.R}.
+##'
+##' The default is for a non-interactive session to quit.
+##' Setting this to false is especially useful for running tests.
 ##'
 ##' @param severeQuits should R quit on a severe error.
 ##' @export
+##' @return invisibly, the previous value of `severeQuits`.
+##'   This can be used to restore settings after a temporary change.
 ##' @author Rob Kooper
 ##' @examples
 ##' \dontrun{
 ##' logger.setQuitOnSevere(FALSE)
 ##' }
 logger.setQuitOnSevere <- function(severeQuits) {
+  old <- .utils.logger$quit
   .utils.logger$quit <- severeQuits
+
+  invisible(old)
 } # logger.setQuitOnSevere
 
 
@@ -304,12 +327,17 @@ logger.setQuitOnSevere <- function(severeQuits) {
 ##' wrap the line when printing a message at that many chars.
 ##'
 ##' @param width number of chars to print before wrapping to next line.
+##' @return Invisibly, the previously set width.
+##'   This can be used to restore settings after a temporary change.
 ##' @export
 ##' @author David LeBauer
 ##' @examples
 ##' \dontrun{
 ##' logger.setWidth(70)
 ##' }
 logger.setWidth <- function(width) {
+  old <- .utils.logger$width
   .utils.logger$width <- width
+
+  invisible(old)
 } # logger.setWidth