Checks on the validity of an sts object. If any test fails, this function will stop with a warning message.
sts_check(sts)
sts object.
Returns TRUE
invisibly if the sts object is valid.
library(MazamaTimeSeries)
sts_check(example_sts)
# This would throw an error
if ( FALSE ) {
broken_sts <- example_sts
names(broken_sts) <- c('meta', 'bop')
sts_check(broken_sts)
}