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)[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.
[function]
If this function is applied to a simple smoof_function, the
smoof_function itself is returned.