Use httr conditionally

brownag · brownag · commit 124c3bbb00fa · 2025-09-15T19:45:52.000-07:00
diff --git a/R/check-win.R b/R/check-win.R
@@ -175,6 +175,7 @@ extract_hidden_fields <- function(html_text) {
 }
 
 upload_webform <- function(file, version) {
+  rlang::check_installed("httr")
 
   upload_url <- "https://win-builder.r-project.org/upload.aspx"
   form_page <- httr::GET(upload_url)

Original file line number	Diff line number	Diff line change
`@@ -175,6 +175,7 @@ extract_hidden_fields <- function(html_text) {`
`175`	`175`	`}`
`176`	`176`
`177`	`177`	`upload_webform <- function(file, version) {`
	`178`	`+ rlang::check_installed("httr")`
`178`	`179`
`179`	`180`	`upload_url <- "https://win-builder.r-project.org/upload.aspx"`
`180`	`181`	`form_page <- httr::GET(upload_url)`