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)
Arguments
fn: [smoof_wrapped_function]
Wrapping function.
deepest: [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.
Returns
[function]
Note
If this function is applied to a simple smoof_function, the smoof_function itself is returned.