diff --git a/R/auto.R b/R/auto.R index fe24ccce9..96bf93c9d 100644 --- a/R/auto.R +++ b/R/auto.R @@ -491,7 +491,7 @@ auto_confirm <- function() { if (has_length(url, 1) && grepl("^https://xmpalantir\\.wu\\.ac\\.at/cransubmit/conf_mail\\.php[?]code=", url)) { break } - Sys.sleep(0.01) + Sys.sleep(0.1) }, interrupt = function(e) { cli_ul("Restart with {.fun fledge:::auto_confirm} (or confirm manually), re-release with {.fun fledge:::release}.") @@ -499,6 +499,8 @@ auto_confirm <- function() { } ) + clipr::write_clip("") + code <- paste0('utils::browseURL("', get_confirm_url(url), '")') if (fledge_chatty()) cli_ul("Run {.run {code}}.") send_to_console(code)