fix(epix_slide): don't serialize object in error message

brookslogan · brookslogan · commit 3d4e4980b89f · 2024-06-19T13:18:14.000-07:00
Resolves #429.
diff --git a/R/grouped_epi_archive.R b/R/grouped_epi_archive.R
@@ -281,7 +281,7 @@ epix_slide.grouped_epi_archive <- function(x, f, ..., before, ref_time_values,
       check_atomic(comp_value, any.missing = TRUE),
       check_data_frame(comp_value),
       combine = "or",
-      .var.name = vname(comp_value)
+      .var.name = "comp_value (an output of one of your slide computations)"
     )
 
     # Label every result row with the `ref_time_value`

Original file line number	Diff line number	Diff line change
`@@ -281,7 +281,7 @@ epix_slide.grouped_epi_archive <- function(x, f, ..., before, ref_time_values,`
`281`	`281`	`check_atomic(comp_value, any.missing = TRUE),`
`282`	`282`	`check_data_frame(comp_value),`
`283`	`283`	`combine = "or",`
`284`		`- .var.name = vname(comp_value)`
	`284`	`+ .var.name = "comp_value (an output of one of your slide computations)"`
`285`	`285`	`)`
`286`	`286`
`287`	`287`	# Label every result row with the `ref_time_value`