calculate_hms fix

- skip_merge part will result in dimension mismatch error when `from` is character(n)
NIEHS · Nov 12, 2024 · b961ac3 · b961ac3
1 parent 0dcba3c
commit b961ac3
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/R/calculate_covariates.R b/R/calculate_covariates.R
@@ -1521,7 +1521,14 @@ calculate_hms <- function(
       paste0("medium_", radius),
       paste0("heavy_", radius)
     )
-    skip_merge <- merge(locs, skip_df, by = "time")
+    # fixed: locs is replicated per the length of from
+    skip_merge <-
+      Reduce(rbind,
+        Map(function(x) {
+          cbind(locs, skip_df[rep(x, nrow(locs)), ])
+        }, seq_len(nrow(skip_df)))
+      )
+
     skip_return <- calc_return_locs(
       skip_merge,
       POSIXt = TRUE,