powered by
Check scalar numeric (with optional bounds)
check_scalar_numeric( x, arg = as.character(substitute(x)), finite = TRUE, lower = -Inf, upper = Inf, allow_na = FALSE, closed_lower = TRUE, closed_upper = TRUE )