R/create_logger.R

In adambondarzewskiITF/utilitiesAdamExample:

#' @param name character; name of logger
#'
#' @param logging_level numeric or character; see help to logging::setLevel
#' @param log_file character; path to file with logs
#'
#' @title Creates logger
#' @export
#'
#'

create_logger <- function(name, logging_level, log_file) {
  logger <- getLogger(name)
  setLevel(level = logging_level, container = logger)
  #addHandler(writeToConsole, level = logging_level, logger=name)
  addHandler(writeToFile, level = logging_level, logger = name, file = log_file)
  return(getLogger(name))
}