get_caller()
Tries to determine the calling functions based on where
.
get_caller(where = -1L)
get_user(fallback = "unknown user")
integer
scalar (usually negative). Look up that many frames
up the call stack
A fallback in case the user name could not be determined
a character
scalar.
foo <- function() get_caller(-1L)
foo()
#> [1] "foo"
get_user()
#> [1] "runner"