Checks on the validity of an pat object. If any test fails, this function will stop with a warning message.
pat_check(pat)
pat object.
Returns TRUE
invisibly if the pat object is valid.
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)
}