From 30b2dc7082ca3afc3cd0cac10847d4efdda0a20c Mon Sep 17 00:00:00 2001
From: "Logan C. Brooks" <lcbrooks+github@andrew.cmu.edu>
Date: Thu, 22 May 2025 09:30:30 -0700
Subject: [PATCH] perf: fix temp key in filter.epi_archive that has to be reset

---
 R/methods-epi_archive.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/methods-epi_archive.R b/R/methods-epi_archive.R
index faf3c1289..3cfe4a8da 100644
--- a/R/methods-epi_archive.R
+++ b/R/methods-epi_archive.R
@@ -1159,7 +1159,7 @@ filter.epi_archive <- function(.data, ..., .by = NULL, .format_aware = FALSE) {
   out_other_keys <- .data$other_keys
   # `filter` makes no guarantees about not aliasing columns in its result when
   # the filter condition is all TRUE, so don't setDT.
-  out_dtbl <- as.data.table(out_tbl, key = out_other_keys)
+  out_dtbl <- as.data.table(out_tbl, key = c("geo_value", "time_value", out_other_keys, "version"))
   result <- new_epi_archive(
     out_dtbl,
     out_geo_type, out_time_type, out_other_keys,