perf(epi_slide_opt.epi_archive): more [ -> vec_slice changes

14% or 17% time reduction for 7daving on a couple of test archives.

Author: brookslogan

R/epi_slide_opt_archive.R

@@ -85,7 +85,7 @@ epi_slide_opt_archive_one_epikey <- function(
     # Get additional values needed from inp_snapshot + perform any NA
     # tail-padding needed to make slider results a fixed window size rather than
     # adaptive at tails + perform any NA gap-filling needed:
-    slide <- inp_snapshot[slide_inp_backrefs, ]
+    slide <- vec_slice(inp_snapshot, slide_inp_backrefs)
     slide$time_value <- slide_time_values
     if (f_from_package == "data.table") {
       if (before == Inf) {
@@ -126,7 +126,7 @@ epi_slide_opt_archive_one_epikey <- function(
           # Only include time_values that appeared in the input snapshot:
           !is.na(slide_inp_backrefs)
       }
-    out_update <- slide[rows_should_keep, ]
+    out_update <- vec_slice(slide, rows_should_keep)
     out_diff <- tbl_diff2(prev_out_snapshot, out_update, "time_value", "update")
     prev_inp_snapshot <<- inp_snapshot
     prev_out_snapshot <<- tbl_patch(prev_out_snapshot, out_diff, "time_value")

R/patch.R

@@ -217,7 +217,7 @@ tbl_fast_anti_join <- function(x, y, ukey_names, val_names, abs_tol = 0) {
     xy_ukey_dup_ids <- vec_duplicate_id(xy_ukeys)
     xy_ukey_dup_inds2 <- which(xy_ukey_dup_ids != seq_along(xy_ukey_dup_ids))
     # ^ these should point to rows from y that had a ukey match in x
-    xy_ukey_dup_inds1 <- xy_ukey_dup_ids[xy_ukey_dup_inds2]
+    xy_ukey_dup_inds1 <- vec_slice(xy_ukey_dup_ids, xy_ukey_dup_inds2)
     # ^ these should point to the respectively corresponding rows from x
 
     # Anything in `x` without a ukey match in `y` should be kept; start off with
@@ -371,7 +371,7 @@ tbl_patch <- function(snapshot, update, ukey_names) {
   # that we get the first appearance since `vec_duplicate_id()` guarantees that
   # it points to the first appearance.
   is_only_or_favored_appearance <- dup_ids == vec_seq_along(result_tbl)
-  result_tbl <- result_tbl[is_only_or_favored_appearance, ]
+  result_tbl <- vec_slice(result_tbl, is_only_or_favored_appearance)
 
   result_tbl
 }