library(MazamaTimeSeries)
# Are there any times when data exceeded 150?
sapply(example_mts$data, function(x) { any(x > 150, na.rm = TRUE) })
# Show all times where da4cadd2d6ea5302_4686 > 150
example_mts %>%
mts_filterData(da4cadd2d6ea5302_4686 > 150) %>%
mts_extractData() %>%
dplyr::pull(datetime)
Run the code above in your browser using DataLab