perf: c -> list when specifying slide out date min, max

brookslogan · brookslogan · commit 184f98a325a0 · 2025-04-10T20:21:34.000-07:00
diff --git a/R/epi_slide_opt_archive.R b/R/epi_slide_opt_archive.R
@@ -61,7 +61,7 @@ epi_slide_opt_archive_one_epikey <- function(
     } else {
       out_update_max_t <- inp_update_max_t + before_n_steps * unit_step
     }
-    out_update <- epi_slide_opt_edf_one_epikey(inp_snapshot, in_colnames, f_dots_baked, f_from_package, before_n_steps, after_n_steps, unit_step, time_type, out_colnames, c(out_update_min_t, out_update_max_t), NULL)
+    out_update <- epi_slide_opt_edf_one_epikey(inp_snapshot, in_colnames, f_dots_baked, f_from_package, before_n_steps, after_n_steps, unit_step, time_type, out_colnames, list(out_update_min_t, out_update_max_t), NULL)
     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")

Original file line number	Diff line number	Diff line change
`@@ -61,7 +61,7 @@ epi_slide_opt_archive_one_epikey <- function(`
`61`	`61`	`} else {`
`62`	`62`	`out_update_max_t <- inp_update_max_t + before_n_steps * unit_step`
`63`	`63`	`}`
`64`		`- out_update <- epi_slide_opt_edf_one_epikey(inp_snapshot, in_colnames, f_dots_baked, f_from_package, before_n_steps, after_n_steps, unit_step, time_type, out_colnames, c(out_update_min_t, out_update_max_t), NULL)`
	`64`	`+ out_update <- epi_slide_opt_edf_one_epikey(inp_snapshot, in_colnames, f_dots_baked, f_from_package, before_n_steps, after_n_steps, unit_step, time_type, out_colnames, list(out_update_min_t, out_update_max_t), NULL)`
`65`	`65`	`out_diff <- tbl_diff2(prev_out_snapshot, out_update, "time_value", "update")`
`66`	`66`	`prev_inp_snapshot <<- inp_snapshot`
`67`	`67`	`prev_out_snapshot <<- tbl_patch(prev_out_snapshot, out_diff, "time_value")`