make DataStore refernce link clickable

RobLBaker · RobLBaker · commit 532c4e2697f8 · 2026-01-05T08:44:18.000-07:00
diff --git a/R/datastore_interactions.R b/R/datastore_interactions.R
@@ -428,8 +428,8 @@ create_datastore_script <- function(owner,
     cat("Unless you have a documented reason to do so, please leave the reference public.\n\n")
 
     cat("Your draft reference can be accessed at:\n")
-
-    cat(crayon::blue$bold(ds_ref_url))
+    ds_ref_url <- utils::URLencode(ds_ref_url)
+    cli::cli_text("{.url {ds_ref_url}}")
   }
 
   invisible(ds_ref_url)

Original file line number	Diff line number	Diff line change
`@@ -428,8 +428,8 @@ create_datastore_script <- function(owner,`
`428`	`428`	`cat("Unless you have a documented reason to do so, please leave the reference public.\n\n")`
`429`	`429`
`430`	`430`	`cat("Your draft reference can be accessed at:\n")`
`431`		`-`
`432`		`- cat(crayon::blue$bold(ds_ref_url))`
	`431`	`+ ds_ref_url <- utils::URLencode(ds_ref_url)`
	`432`	`+ cli::cli_text("{.url {ds_ref_url}}")`
`433`	`433`	`}`
`434`	`434`
`435`	`435`	`invisible(ds_ref_url)`