x <- Sys.time() + c(-1, 100)
is_in_past(x)
is_in_future(x)
assert_is_empty(NULL)
assert_is_empty(numeric())
assert_is_non_empty(1:10)
assert_is_non_empty(NA)
assert_is_scalar(1)
assert_is_scalar("Multiple words in a single string are scalar.")
assert_is_scalar(NA)
Run the code above in your browser using DataLab