From 9a9331a77f65b13cc32a308237cca7f58d33ced8 Mon Sep 17 00:00:00 2001
From: Jairo H Migueles <jairo.hidalgo.migueles@gmail.com>
Date: Mon, 23 Sep 2024 12:50:34 +0200
Subject: [PATCH] handle dates in part 2 without assumptions in number of
 characters

---
 R/GGIR.R              | 2 +-
 R/g.report.part2.R    | 8 +++++---
 man/g.report.part2.Rd | 5 ++++-
 3 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/R/GGIR.R b/R/GGIR.R
index cd8c98deb..95e658528 100644
--- a/R/GGIR.R
+++ b/R/GGIR.R
@@ -369,7 +369,7 @@ GGIR = function(mode = 1:5, datadir = c(), outputdir = c(),
       g.report.part2(metadatadir = metadatadir, f0 = f0, f1 = f1,
                      maxdur = params_cleaning[["maxdur"]],
                      store.long = store.long, params_output,
-                     verbose = verbose)
+                     verbose = verbose, desiredtz = params_general[["desiredtz"]])
     }
   }
   if (length(which(do.report == 4)) > 0) {
diff --git a/R/g.report.part2.R b/R/g.report.part2.R
index c22e74705..84aff71f4 100644
--- a/R/g.report.part2.R
+++ b/R/g.report.part2.R
@@ -1,5 +1,6 @@
 g.report.part2 = function(metadatadir = c(), f0 = c(), f1 = c(), maxdur = 0,
-                          store.long = FALSE, params_output, verbose = TRUE) {
+                          store.long = FALSE, params_output, verbose = TRUE,
+                          desiredtz = "") {
   ms2.out = "/meta/ms2.out"
   if (file.exists(paste0(metadatadir,ms2.out))) {
     if (length(dir(paste0(metadatadir,ms2.out))) == 0) {
@@ -239,8 +240,9 @@ g.report.part2 = function(metadatadir = c(), f0 = c(), f1 = c(), maxdur = 0,
       # tidy up data.frames
       SUMMARY_clean = tidyup_df(SUMMARY)
       daySUMMARY_clean = tidyup_df(daySUMMARY)
-      # format calendar dates (dates are stored as iso8601, so date is in the first 10 characters )
-      daySUMMARY_clean$calendar_date = substr(daySUMMARY_clean$calendar_date, 1, 10)
+      # format calendar dates
+      dd = iso8601chartime2POSIX(daySUMMARY_clean$calendar_date, tz = desiredtz) 
+      daySUMMARY_clean$calendar_date = format(dd, format = "%Y-%m-%d")
       #===============================================================================
       # store final matrices again
       data.table::fwrite(x = SUMMARY_clean, file = paste0(metadatadir, "/results/part2_summary.csv"),
diff --git a/man/g.report.part2.Rd b/man/g.report.part2.Rd
index f46e28ed5..0fb09c01f 100644
--- a/man/g.report.part2.Rd
+++ b/man/g.report.part2.Rd
@@ -9,7 +9,7 @@
 }
 \usage{
   g.report.part2(metadatadir = c(), f0 = c(), f1 = c(), maxdur = 0,
-  store.long = FALSE, params_output, verbose = TRUE)
+  store.long = FALSE, params_output, verbose = TRUE, desiredtz = "")
 }
 \arguments{
   \item{metadatadir}{
@@ -39,6 +39,9 @@
   \item{verbose}{
     See details in \link{GGIR}.
   }
+  \item{desiredtz}{
+    See details in \link{GGIR}.
+  }
 }
 \value{
 Function does not produce data, but only writes reports