log QClog with idle sleep mode info

wadpac · Oct 30, 2023 · 5e498f1 · 5e498f1
1 parent 72cd753
commit 5e498f1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/R/g.getmeta.R b/R/g.getmeta.R
@@ -284,6 +284,8 @@ g.getmeta = function(datafile, params_metrics = c(), params_rawdata = c(),
                                PreviousLastValue = PreviousLastValue,
                                PreviousLastTime = PreviousLastTime,
                                epochsize = c(ws3, ws2))
+          QClog = rbind(QClog, P$QClog)
+          P = P$P 
           PreviousLastValue = as.numeric(P[nrow(P), xyzCol])
           if (is.null(timeCol)) PreviousLastTime = NULL else PreviousLastTime = as.POSIXct(P[nrow(P), timeCol])
         }

diff --git a/R/g.imputeTimegaps.R b/R/g.imputeTimegaps.R
@@ -193,6 +193,7 @@ g.imputeTimegaps = function(x, xyzCol, timeCol = c(), sf, k=0.25, impute = TRUE,
   # QClog
   start = as.numeric(as.POSIXct(x[1,1]))
   end = as.numeric(as.POSIXct(x[nrow(x),1]))
+  if (is.null(GapsLength)) GapsLength = 0
   QClog = data.frame(start = start, end = end,
                      blockLengthSeconds = (end - start) / sf,
                      timegaps_n = NumberOfGaps, timegaps_length = GapsLength)