Add a clickable link to path when warning.

olivroy · olivroy · commit e4388a13c8ca · 2024-06-13T13:13:34.000-04:00
diff --git a/R/io.R b/R/io.R
@@ -54,7 +54,11 @@ transform_utf8_one <- function(path, fun, dry) {
       if (inherits(e, "dryError")) {
         rlang::abort(conditionMessage(e))
       }
-      warn(paste0("When processing ", path, ": ", conditionMessage(e)))
+      show_path <- cli::style_hyperlink(
+        cli::col_blue(basename(path)),
+        paste0("file://", path)
+      )
+      cli::cli_warn("When processing {show_path}:", parent = e)
       NA
     }
   )

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,11 @@ transform_utf8_one <- function(path, fun, dry) {`
`54`	`54`	`if (inherits(e, "dryError")) {`
`55`	`55`	`rlang::abort(conditionMessage(e))`
`56`	`56`	`}`
`57`		`- warn(paste0("When processing ", path, ": ", conditionMessage(e)))`
	`57`	`+ show_path <- cli::style_hyperlink(`
	`58`	`+ cli::col_blue(basename(path)),`
	`59`	`+ paste0("file://", path)`
	`60`	`+ )`
	`61`	`+ cli::cli_warn("When processing {show_path}:", parent = e)`
`58`	`62`	`NA`
`59`	`63`	`}`
`60`	`64`	`)`