Expand the .last_complete_epoch function

bhelsel · Jul 21, 2023 · 9a85f82 · 9a85f82
1 parent 64d1234
commit 9a85f82
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/get_timestamps.R b/R/get_timestamps.R
@@ -1,3 +1,7 @@
+# Copyright © 2022 University of Kansas. All rights reserved.
+#
+# Creative Commons Attribution NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0)
+
 .get_timestamps <- function(raw, epoch, frequency, tz) {
 
   if("start_time" %in% names(attributes(raw))){
@@ -25,7 +29,7 @@
 
   samples_per_epoch <- frequency * epoch
 
-  utils::tail(raw$time, samples_per_epoch * 3) %>%
+  utils::tail(raw$time, samples_per_epoch * 10) %>%
   lubridate::floor_date(paste(epoch, "sec")) %>%
   as.character(.) %>%
   rle(.) %>%