Improve unsupported arg check messages in epi_slide_{sum,mean}

brookslogan · brookslogan · commit 271aaaa89744 · 2024-12-09T22:39:54.000-08:00
diff --git a/R/slide.R b/R/slide.R
@@ -1010,8 +1010,9 @@ epi_slide_mean <- function(
   }
   if ("new_col_name" %in% provided_args || ".new_col_name" %in% provided_args) {
     cli::cli_abort(
-      "epi_slide_mean: the argument `new_col_name` is not supported. If you want to customize
-      the output column names, use `dplyr::rename` after the slide."
+      "epi_slide_opt: the argument `new_col_name` is not supported for `epi_slide_opt`. If you want to customize
+      the output column names, use `.prefix =`, `.suffix =`, or `.new_col_**names** =`.",
+      class = "epiprocess__epi_slide_opt__new_name_not_supported"
     )
   }
   if ("names_sep" %in% provided_args || ".names_sep" %in% provided_args) {
@@ -1069,8 +1070,9 @@ epi_slide_sum <- function(
   }
   if ("new_col_name" %in% provided_args || ".new_col_name" %in% provided_args) {
     cli::cli_abort(
-      "epi_slide_sum: the argument `new_col_name` is not supported. If you want to customize
-      the output column names, use `dplyr::rename` after the slide."
+      "epi_slide_opt: the argument `new_col_name` is not supported for `epi_slide_opt`. If you want to customize
+      the output column names, use `.prefix =`, `.suffix =`, or `.new_col_**names** =`.",
+      class = "epiprocess__epi_slide_opt__new_name_not_supported"
     )
   }
   if ("names_sep" %in% provided_args || ".names_sep" %in% provided_args) {

Original file line number	Diff line number	Diff line change
`@@ -1010,8 +1010,9 @@ epi_slide_mean <- function(`
`1010`	`1010`	`}`
`1011`	`1011`	`if ("new_col_name" %in% provided_args \|\| ".new_col_name" %in% provided_args) {`
`1012`	`1012`	`cli::cli_abort(`
`1013`		- "epi_slide_mean: the argument `new_col_name` is not supported. If you want to customize
`1014`		- the output column names, use `dplyr::rename` after the slide."
	`1013`	+ "epi_slide_opt: the argument `new_col_name` is not supported for `epi_slide_opt`. If you want to customize
	`1014`	+ the output column names, use `.prefix =`, `.suffix =`, or `.new_col_names =`.",
	`1015`	`+ class = "epiprocess__epi_slide_opt__new_name_not_supported"`
`1015`	`1016`	`)`
`1016`	`1017`	`}`
`1017`	`1018`	`if ("names_sep" %in% provided_args \|\| ".names_sep" %in% provided_args) {`
`@@ -1069,8 +1070,9 @@ epi_slide_sum <- function(`
`1069`	`1070`	`}`
`1070`	`1071`	`if ("new_col_name" %in% provided_args \|\| ".new_col_name" %in% provided_args) {`
`1071`	`1072`	`cli::cli_abort(`
`1072`		- "epi_slide_sum: the argument `new_col_name` is not supported. If you want to customize
`1073`		- the output column names, use `dplyr::rename` after the slide."
	`1073`	+ "epi_slide_opt: the argument `new_col_name` is not supported for `epi_slide_opt`. If you want to customize
	`1074`	+ the output column names, use `.prefix =`, `.suffix =`, or `.new_col_names =`.",
	`1075`	`+ class = "epiprocess__epi_slide_opt__new_name_not_supported"`
`1074`	`1076`	`)`
`1075`	`1077`	`}`
`1076`	`1078`	`if ("names_sep" %in% provided_args \|\| ".names_sep" %in% provided_args) {`