pass call for error message

Yunuuuu · Yunuuuu · commit 089e2d9ae66d · 2025-01-09T08:02:30.000+08:00
diff --git a/R/pair-links.R b/R/pair-links.R
@@ -118,7 +118,7 @@ obj_print_footer.ggalign_pair_links <- function(x, ...) {
 
 #' @export
 `[<-.ggalign_pair_links` <- function(x, i, value) {
-    value <- lapply(value, as_pair_link, x_arg = "value")
+    value <- lapply(value, as_pair_link, x_arg = "value", call = current_call())
     NextMethod()
 }
 

Original file line number	Diff line number	Diff line change
`@@ -118,7 +118,7 @@ obj_print_footer.ggalign_pair_links <- function(x, ...) {`
`118`	`118`
`119`	`119`	`#' @export`
`120`	`120`	`[<-.ggalign_pair_links` <- function(x, i, value) {
`121`		`- value <- lapply(value, as_pair_link, x_arg = "value")`
	`121`	`+ value <- lapply(value, as_pair_link, x_arg = "value", call = current_call())`
`122`	`122`	`NextMethod()`
`123`	`123`	`}`
`124`	`124`