#' Logging minimaliste (stdout)
  log_info <- function(msg, ...) {
    cat(sprintf('[INFO ] %s - %s
', format(Sys.time(), '%Y-%m-%d %H:%M:%S'), sprintf(msg, ...)))
  }
  log_warn <- function(msg, ...) {
    cat(sprintf('[WARN ] %s - %s
', format(Sys.time(), '%Y-%m-%d %H:%M:%S'), sprintf(msg, ...)))
  }
  log_error <- function(msg, ...) {
    cat(sprintf('[ERROR] %s - %s
', format(Sys.time(), '%Y-%m-%d %H:%M:%S'), sprintf(msg, ...)))
  }