Add a clickable link to file when already exists and not generated by roxygen2 (#1556)

Author: olivroy

R/utils.R

@@ -69,7 +69,7 @@ write_if_different <- function(path, contents, command = NULL, check = TRUE) {
   name <- basename(path)
   if (check && !made_by_roxygen(path)) {
     cli::cli_inform(c(
-      x = "Skipping {.path {name}}",
+      x = "Skipping {.href [{name}](file://{path})}",
       i = "It already exists and was not generated by {.pkg roxygen2}."
     ))
     return(FALSE)

tests/testthat/_snaps/utils.md

@@ -12,7 +12,7 @@
     Code
       write_if_different(path, "a <- 2")
     Message
-      x Skipping 'test.R'
+      x Skipping test.R (<file:///test.R>)
       i It already exists and was not generated by roxygen2.
     Output
       [1] FALSE

tests/testthat/test-utils.R

@@ -22,7 +22,11 @@ test_that("write_if_different produces informative messages", {
   expect_snapshot(write_if_different(path, "a <- 2"))
 
   write_lines("a <- 1", path)
-  expect_snapshot(write_if_different(path, "a <- 2"))
+  # strip temp path
+  expect_snapshot(
+    write_if_different(path, "a <- 2"),
+    transform = function(x) gsub(dir, "", x, fixed = TRUE)
+  )
 
   path <- file.path(dir, "+.R")
   expect_snapshot(write_if_different(path, "a <- 2"))