The smoof package offers means to let a function log its evaluations or even store to points and function values it has been evaluated on. This is done by wrapping the function with other functions. This helper function extract the wrapped function.
getWrappedFunction(fn, deepest = FALSE)[function]
[smoof_wrapped_function]
Wrapping function.
[logical(1)]
Function may be wrapped with multiple wrappers. If deepest is set to
TRUE the function unwraps recursively until the “deepest” wrapped
smoof_function is reached. Default is FALSE.
addCountingWrapper, addLoggingWrapper