Convenience function for nrow(pat$data) == 0
.
This makes for more readable code in functions that need to test for this.
pat_isEmpty(pat)
pat object
TRUE
if no data exist in pat
, FALSE
otherwise.
library(AirSensor2)
pat_isEmpty(example_pat)
#> [1] FALSE