rd_link() is no longer vectorised

hadley · hadley · commit 0af212ee1405 · 2026-03-17T15:58:44.000-05:00
Fixes #1813
diff --git a/R/object-import.R b/R/object-import.R
@@ -46,5 +46,7 @@ format.rd_section_reexport <- function(x, ...) {
 
 reexport_link <- function(pkg, fun) {
   env <- tryCatch(asNamespace(pkg), error = function(e) emptyenv())
-  rd_link(pkg, escape(fun), escape(fun_suffix(fun, env)), code = TRUE)
+  map_chr(seq_along(fun), function(i) {
+    rd_link(pkg[[i]], escape(fun[[i]]), escape(fun_suffix(fun[[i]], env)), code = TRUE)
+  })
 }

Original file line number	Diff line number	Diff line change
`@@ -46,5 +46,7 @@ format.rd_section_reexport <- function(x, ...) {`
`46`	`46`
`47`	`47`	`reexport_link <- function(pkg, fun) {`
`48`	`48`	`env <- tryCatch(asNamespace(pkg), error = function(e) emptyenv())`
`49`		`- rd_link(pkg, escape(fun), escape(fun_suffix(fun, env)), code = TRUE)`
	`49`	`+ map_chr(seq_along(fun), function(i) {`
	`50`	`+ rd_link(pkg[[i]], escape(fun[[i]]), escape(fun_suffix(fun[[i]], env)), code = TRUE)`
	`51`	`+ })`
`50`	`52`	`}`