set.seed(19790801) library(assertive) knitr::opts_chunk$set(error = FALSE)
- Just type the code in the question!
2. Checking function inputs
The answer is a little subjective.
x, I suggest simply enforcing that it is
constantare expected to be single numbers. You can either throw an error if this is not the case using
assert_is_a_number(center), etc., or have a slightly more forgiving check for numeric followed by retrieving of the first value using
center <- use_first(center), etc.. For very strict checking, you may also wish to ensure that
constantare not missing or NaN using
highare expected to be logical values. You can throw an error for inputs that don't conform using
assert_is_a_bool(na.rm), etc.. I suggest being more forgiving by extracting the first element and coercing to logical using
na.rm <- coerce_to(use_first(na.rm), "logical"), etc.