tz fixes

Author: owen-hy

R/ahp.R

@@ -44,8 +44,8 @@ ahp <- function(data, maxd = 14, inter_gap = 15, dt0 = 1, tz = "", daily = TRUE)
   # Calculate range of measurements
   out_range = percent_nonmissing(data)
 
-  RHR_data <- calculate_RHR(data)
-  HRR_data <- calculate_HRR(data)
+  RHR_data <- calculate_RHR(data, tz = tz)
+  HRR_data <- calculate_HRR(data, tz = tz)
 
   # Extract values for subject
   RHR_value <- if (!is.null(RHR_data)) round(RHR_data$RHR[RHR_data$id == subject]) else NA

R/calculate_HRR.R

@@ -29,9 +29,9 @@
 calculate_HRR <- function(data, method = "max-RHR", quantile_val = 1, tz = "") {
   time = hr = id = max_hr = min_hr = RHR = NULL
   rm(list = c('time', 'hr', 'id', 'max_hr', 'min_hr', 'RHR'))
-  data$time <- as.POSIXct(data$time, format="%Y-%m-%d %H:%M:%S")
+  data$time <- as.POSIXct(data$time, format="%Y-%m-%d %H:%M:%S", tz = tz)
 
-  RHR_data <- calculate_RHR(data)
+  RHR_data <- calculate_RHR(data, tz = tz)
 
   # If no RHR data, return NULL
   if (is.null(RHR_data)) {