Checks on the validity of an *pat* object. If any test fails, this function will stop with a warning message.
pat_check(pat)Returns `TRUE` invisibly if the *pat* object is valid.
[pat_isValid()]
library(AirSensor2)
pat_check(example_pat)
# This would throw an error
if ( FALSE ) {
broken_pat <- example_pat
names(broken_pat) <- c('meta', 'bop')
pat_check(broken_pat)
}