R/OmicSelector_log.R

In kstawiski/OmicSelector: OmicSelector - a package for biomarker selection based on high-throughput experiments.

#' OmicSelector_log
#'
#' Logging to sink.
#'
#' @param message Message to log.
#' @param logfile Path to logfile.
#'
#'
#' @export
OmicSelector_log = function(message_to_log = "Working...", logfile = "temp.log") {
  try({
  timestamp = as.character(Sys.time())
  pid = as.character(R.utils::getBuiltinPid.GString())
  to_write = paste0("\n[",timestamp," | pid:", pid,"] ", message_to_log)
  sink(logfile, append=TRUE)
  cat(to_write)
  sink()
  message(to_write)
  })
}