lint(CHECK): explicitly list some args in [<-, [[<-, $<- impls

brookslogan · brookslogan · commit 6bab2f4dbab0 · 2025-03-06T16:23:39.000-08:00
diff --git a/R/methods-epi_df.R b/R/methods-epi_df.R
@@ -234,21 +234,21 @@ reconstruct_light_edf <- function(data, template) {
 }
 
 #' @export
-`[<-.epi_df` <- function(x, ...) {
+`[<-.epi_df` <- function(x, i, j, ..., value) {
   res <- NextMethod()
 
   reconstruct_light_edf(res, x)
 }
 
 #' @export
-`[[<-.epi_df` <- function(x, ...) {
+`[[<-.epi_df` <- function(x, i, j, ..., value) {
   res <- NextMethod()
 
   reconstruct_light_edf(res, x)
 }
 
 #' @export
-`$<-.epi_df` <- function(x, ...) {
+`$<-.epi_df` <- function(x, name, value) {
   res <- NextMethod()
 
   reconstruct_light_edf(res, x)

Original file line number	Diff line number	Diff line change
`@@ -234,21 +234,21 @@ reconstruct_light_edf <- function(data, template) {`
`234`	`234`	`}`
`235`	`235`
`236`	`236`	`#' @export`
`237`		-`[<-.epi_df` <- function(x, ...) {
	`237`	+`[<-.epi_df` <- function(x, i, j, ..., value) {
`238`	`238`	`res <- NextMethod()`
`239`	`239`
`240`	`240`	`reconstruct_light_edf(res, x)`
`241`	`241`	`}`
`242`	`242`
`243`	`243`	`#' @export`
`244`		-`[[<-.epi_df` <- function(x, ...) {
	`244`	+`[[<-.epi_df` <- function(x, i, j, ..., value) {
`245`	`245`	`res <- NextMethod()`
`246`	`246`
`247`	`247`	`reconstruct_light_edf(res, x)`
`248`	`248`	`}`
`249`	`249`
`250`	`250`	`#' @export`
`251`		-`$<-.epi_df` <- function(x, ...) {
	`251`	+`$<-.epi_df` <- function(x, name, value) {
`252`	`252`	`res <- NextMethod()`
`253`	`253`
`254`	`254`	`reconstruct_light_edf(res, x)`