get_caller() Tries to determine the calling functions based on where.

get_caller(where = -1L)

get_user(fallback = "unknown user")

Arguments

where

integer scalar (usually negative). Look up that many frames up the call stack

fallback

A fallback in case the user name could not be determined

Value

a character scalar.

Examples

foo <- function() get_caller(-1L)
foo()
#> [1] "foo"
get_user()
#> [1] "runner"