Fix incomplete rename refactor

brookslogan · brookslogan · commit 54223639a3a4 · 2025-04-07T10:51:49.000-07:00
diff --git a/R/epi_slide_opt_archive.R b/R/epi_slide_opt_archive.R
@@ -127,7 +127,7 @@ epi_slide_opt_archive_one_epikey <- function(
           !is.na(slide_inp_backrefs)
       }
     out_update <- slide[rows_should_keep, ]
-    out_diff <- tbl_diff2_alt2(prev_out_snapshot, out_update, "time_value", "update")
+    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")
     out_diff$version <- version
diff --git a/R/patch.R b/R/patch.R
@@ -233,7 +233,7 @@ tbl_fast_anti_join <- function(x, y, ukey_names, val_names, abs_tol = 0) {
       na_equal = TRUE, abs_tol = abs_tol
     )
   }
-  vec_slice(x_orig, !x_exclude)
+  vec_slice(x, !x_exclude)
 }
 
 #' Calculate compact patch to move from one snapshot/update to another

Original file line number	Diff line number	Diff line change
`@@ -127,7 +127,7 @@ epi_slide_opt_archive_one_epikey <- function(`
`127`	`127`	`!is.na(slide_inp_backrefs)`
`128`	`128`	`}`
`129`	`129`	`out_update <- slide[rows_should_keep, ]`
`130`		`- out_diff <- tbl_diff2_alt2(prev_out_snapshot, out_update, "time_value", "update")`
	`130`	`+ out_diff <- tbl_diff2(prev_out_snapshot, out_update, "time_value", "update")`
`131`	`131`	`prev_inp_snapshot <<- inp_snapshot`
`132`	`132`	`prev_out_snapshot <<- tbl_patch(prev_out_snapshot, out_diff, "time_value")`
`133`	`133`	`out_diff$version <- version`
Original file line number	Diff line number	Diff line change
`@@ -233,7 +233,7 @@ tbl_fast_anti_join <- function(x, y, ukey_names, val_names, abs_tol = 0) {`
`233`	`233`	`na_equal = TRUE, abs_tol = abs_tol`
`234`	`234`	`)`
`235`	`235`	`}`
`236`		`- vec_slice(x_orig, !x_exclude)`
	`236`	`+ vec_slice(x, !x_exclude)`
`237`	`237`	`}`
`238`	`238`
`239`	`239`	`#' Calculate compact patch to move from one snapshot/update to another`