Логирование имени скрипта - futile.logger R - PullRequest
Новая
       6

Логирование имени скрипта - futile.logger R

0 голосов
/ 26 сентября 2018

Я использую пакет futile.logger, чтобы сообщение журнала было записано в файл log.txt.Поскольку мои проекты состоят из 6 сценариев и 20-22 функций, я бы хотел, чтобы в журнале было записано сообщение с названием сценария и именем функции.Я создал функцию Logging, которая должна вызываться для регистрации сообщения: 

Logging<-function(level,message)
{
  #' Logs event to a Log/log.txt files 
  #' 
  #' @param level: String, Message level: info,error,debug (NO CAPS LOCK)
  #' @param message: String, Message you want to Log
  #'
  #' @return  write the file with the message specified by the user.

  flog.appender(appender.file(file.path(getwd(),'Log/logs.txt')))
  eval(parse(text=sprintf("flog.%s('%s')",level,message)))
}

Предположим, файл с именем foo.R имеет функцию fun_1: 

    fun_1 <- function(input){
       #doing some stuff
       Logging("info","some log message")
                            }

, котораярегистрирует что-то вроде: 

INFO [date hours] some log message

Мне бы хотелось получить сообщение, содержащее также имя сценариев, из которых была вызвана функция Logging, и имя функции, из которой была вызвана функция Loggingт.е. 

 INFO foo fun_1 [date hours] some log message

Спасибо

...