tests/testthat/check_loging.R

In shug0131/cctu: In-house Functions for Report Writing at Cambridge Clinical Trials Unit

(calls <- sys.calls())
commands <- sapply(calls, function(x) {
  as.character(x)[1]
})
commands
index <- grep("source(?!_)", commands, perl=TRUE)
index
as.character(calls[[max(index)]])[2]

get_file_name()