R/0_internal__make_formatter.R

In jennguyen1/scriptR: Scripting in R

make_formatter <- function(format_options){
  assertthat::assert_that(
    !missing(format_options), 
    msg = "Input format_options is missing"
  )
  assertthat::assert_that(
    is.list(format_options) & !is.data.frame(format_options), 
    msg = "Input format_options need to be a list"
  )
  
  assertthat::assert_that(
    exists("format", where = format_options), 
    msg = "format not found in formatter options"
  )
  assertthat::assert_that(
    exists("style", where = format_options), 
    msg = "style not found in formatter options"
  )
  assertthat::assert_that(
    all(unlist(lapply(format_options, is.character))), 
    msg = "All format options need to be strings"
  )
  
  assertthat::assert_that(
    format_options$style == "{", 
    msg = "The only supported formatter style is {"
  )
  time_format <- ifelse(!is.null(format_options$datefmt), format_options$datefmt, "%Y-%m-%d %H:%M:%S")
  use_string <- stringr::str_replace_all(format_options$format, "[{]", "${")
  
  # formats of Python logging not available
  pathname <- ""
  filename <- ""
  lineno <- ""
  created <- ""
  msecs <- ""
  thread <- ""
  threadName <- ""
  process <- ""

  # formats available in R logging package
  module <- "~n"
  funcName <- "~f"
  levelname <- "~l"
  asctime <- "~t"
  message <- "~m"

  format <- stringr::str_interp(use_string)
  futile.logger::layout.format(format, time_format)
}