Modify a user-defined function to return a single logical value

Modifies a user-defined function to wrap its body in an all() call, ensuring that it returns a single logical value instead of a vector.

It uses bquote() to create a new body for the function. The .() inside bquote() inserts the original body of the function. The all() function wraps around the original body.

Usage

wrap_fun_in_all(user_fun)

Arguments

user_fun

A user-defined function.

Value

The modified function.