This function returns true under the following conditions:
no time series: ncol(monitor$data) == 1
no time series records: nrow(monitor$data) == 0
all timeseries values are NA
This makes for more readable code in functions that need to test for this.