From 279b5ff666f80bcd9e2c93f175b0336b90b93bc5 Mon Sep 17 00:00:00 2001 From: chainsawriot Date: Sun, 26 Nov 2023 17:44:33 +0100 Subject: [PATCH] Add copy nav url ref#146 --- R/auth.R | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/R/auth.R b/R/auth.R index d97bf6a..e87cf1a 100644 --- a/R/auth.R +++ b/R/auth.R @@ -101,7 +101,14 @@ create_token <- function(client, type = "public", browser = TRUE) { if (browser) { httr::BROWSE(url, query = query) } else { - message(paste("Navigate to", httr::modify_url(url, query = query), "to obtain an authorization code")) + nav_url <- httr::modify_url(url, query = query) + if (clipr::clipr_available()) { + clipr::write_clip(nav_url) + url_copied <- "[copied to clipboard]" + } else { + url_copied <- "" + } + message(paste("Navigate to", nav_url, url_copied, "to obtain an authorization code")) } auth_code <- rtoot_ask(prompt = "enter authorization code: ", pass = TRUE, check_rstudio = TRUE, default = "") auth2 <- httr::POST(httr::modify_url(url = url, path = "oauth/token"), body = list(