R/log_setup.R

In singjc/mstools: OpenSWATH Mass Spectrometry Data Exploration

#install.packages("MazamaCoreUtils")
#// **********************************************************************************************
#//                         log_setup.R
#// **********************************************************************************************
#//
#// 
#// **********************************************************************************************
#// @Maintainer: Justin Sing
#// @Author: Justin Sing

#' 
#' @title Logging system setup
#' @description Setup logging system to write out error, trace, warnings and general information to file
#' @import MazamaCoreUtils
#' 
#' @author Justin Sing \url{https://github.com/singjc}
#' 
#' @importFrom MazamaCoreUtils logger.setup logger.setLevel
#' 
#' @export
log_setup <- function(){
# Setup Logging System
tmpDir <- getwd()
cat('log directory: ', tmpDir, '\n', sep = ' ')
time_stamp <- format(Sys.time(), "%a_%b_%d_%Hh%Mm%Ss_%Y")
MazamaCoreUtils::logger.setup(
  traceLog = file.path( tmpDir, ("mstools-trace.log") )
)
MazamaCoreUtils::logger.setLevel( level='INFO' )
}