From 7061b1144979fe2e6468515ba576ffc21c3ab3c0 Mon Sep 17 00:00:00 2001 From: Ben Bond-Lamberty Date: Thu, 29 Feb 2024 09:44:52 -0500 Subject: [PATCH] Temporary debug messages --- R/metadata.R | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/R/metadata.R b/R/metadata.R index 6389bb7..231e38b 100644 --- a/R/metadata.R +++ b/R/metadata.R @@ -40,6 +40,10 @@ wtf_metadata_match <- function(data_timestamps, start_dates, start_times, obs_lengths) { + wtf_message("class(data_timestamps) = ", class(data_timestamps)) + wtf_message("class(start_dates) = ", class(start_dates)) + wtf_message("class(start_times) = ", class(start_times)) + # Input checks and convert to dates/timestamps if needed stopifnot(length(start_dates) == length(start_times)) stopifnot(length(start_dates) == length(obs_lengths)) @@ -72,6 +76,8 @@ wtf_metadata_match <- function(data_timestamps, start_timestamps <- start_dates + start_times stopifnot(is.POSIXct((start_timestamps))) # should always be true! stop_timestamps <- start_timestamps + obs_lengths + wtf_message("start_timestamps = ", paste(start_timestamps, collapse = ",")) + wtf_message("stop_timestamps = ", paste(stop_timestamps, collapse = ",")) # Metadata records shouldn't overlap; we assume that metadata is from a # single machine that generated the data