if (FALSE) {
library(assertthat)
assert_that(is_single_numeric(1))
# TRUE
assert_that(is_single_numeric(Inf))
# TRUE
assert_that(is_single_numeric(1.6))
# TRUE
assert_that(is_single_numeric(NA))
# Error: NA is not a single numeric value
assert_that(is_single_numeric(1:6))
# Error: 1:6 is not a single numeric value
assert_that(is_single_numeric("pie"))
# Error: "pie" is not a single numeric value
}
Run the code above in your browser using DataLab