library(MazamaTimeSeries)
ids1 <- example_mts$meta$deviceDeploymentID[1:5]
ids2 <- example_mts$meta$deviceDeploymentID[4:6]
ids3 <- example_mts$meta$deviceDeploymentID[8:10]
mts1 <-
example_mts %>%
mts_filterMeta(deviceDeploymentID %in% ids1) %>%
mts_filterDate(20190701, 20190703)
mts2 <-
example_mts %>%
mts_filterMeta(deviceDeploymentID %in% ids2) %>%
mts_filterDate(20190704, 20190706)
mts3 <-
example_mts %>%
mts_filterMeta(deviceDeploymentID %in% ids3) %>%
mts_filterDate(20190705, 20190708)
mts <- mts_combine(mts1, mts2, mts3)
# Should have 1:6 + 8:10 = 9 meta records and the full date range
nrow(mts$meta)
range(mts$data$datetime)
Run the code above in your browser using DataLab