Experiments with dots, quoting and purrr

log_function.R

log <- function(f, ...) {
  function_name <- as.character(substitute(f))
  
  dots <- list(...)
  args <- paste0(dots, collapse = ",")
  
  function_result <- f(...)
  print(stringr::str_glue("{function_name}({args}) -> {function_result}"))
  
  function_result
}

logify <- function(f) {
  
  function_name <- as.character(substitute(f))
  
  f_with_log <- function(...) {
    dots <- list(...)
    args <- paste0(dots, collapse = ",")
    
    function_result <- f(...)
    print(stringr::str_glue("{function_name}({args}) -> {function_result}"))
    
    function_result
  }
}

# Examples

my_value <- purrr::reduce(c(T, F, F, T), logify(`==`))

add2 <- function(x) x + 2
logify(add2)(2)