Fix spacing (#515)

Author: hadley

R/oauth-client.R

@@ -240,4 +240,3 @@ oauth_client_get_token <- function(client,
   resp <- oauth_flow_fetch(req, "client$token_url", error_call = error_call)
   exec(oauth_token, !!!resp)
 }
-

R/oauth-flow.R

@@ -1,5 +1,5 @@
 oauth_flow_fetch <- function(req, source, error_call = caller_env()) {
-  req <- req_error(req, is_error = ~ FALSE)
+  req <- req_error(req, is_error = ~FALSE)
   resp <- req_perform(req, error_call = current_call())
 
   oauth_flow_parse(resp, source, error_call = error_call)

R/req-cache.R

@@ -91,7 +91,7 @@ cache_exists <- function(req) {
   if (!req_policy_exists(req, "cache_path")) {
     return(FALSE)
   }
-  
+
   path <- req_cache_path(req)
   if (!file.exists(path)) {
     return(FALSE)

R/req-cookies.R

@@ -35,4 +35,3 @@ req_cookie_preserve <- function(req, path) {
     cookiefile = path
   )
 }
-

R/req-perform-stream.R

@@ -1,12 +1,11 @@
-
 #' Perform a request and handle data as it streams back
-#' 
+#'
 #' @description
 #' After preparing a request, call `req_perform_stream()` to perform the request
 #' and handle the result with a streaming callback. This is useful for
 #' streaming HTTP APIs where potentially the stream never ends.
-#' 
-#' The `callback` will only be called if the result is successful. If you need 
+#'
+#' The `callback` will only be called if the result is successful. If you need
 #' to stream an error response, you can use [req_error()] to suppress error
 #' handling so that the body is streamed to you.
 #'
@@ -73,10 +72,10 @@ req_perform_stream <- function(req,
   continue <- TRUE
   incomplete <- TRUE
   buf <- raw()
-  
-  while(continue && isIncomplete(stream) && Sys.time() < stop_time) {
+
+  while (continue && isIncomplete(stream) && Sys.time() < stop_time) {
     buf <- c(buf, readBin(stream, raw(), buffer_kb * 1024))
-   
+
     if (length(buf) > 0) {
       cut <- cut_points(buf)
       n <- length(cut)

R/req-perform.R

@@ -30,7 +30,7 @@
 #' `options(httr2_progress = FALSE)`.
 #'
 #' @param req A [request].
-#' @param path Optionally, path to save body of the response. This is useful 
+#' @param path Optionally, path to save body of the response. This is useful
 #'   for large responses since it avoids storing the response in memory.
 #' @param mock A mocking function. If supplied, this function is called
 #'   with the request. It should return either `NULL` (if it doesn't want to
@@ -105,7 +105,7 @@ req_perform <- function(
   throttle_delay(req)
 
   delay <- 0
-  while(tries < max_tries && Sys.time() < deadline) {
+  while (tries < max_tries && Sys.time() < deadline) {
     sys_sleep(delay, "for retry backoff")
     n <- n + 1
 

R/req-retries.R

@@ -56,7 +56,7 @@
 #'
 #' # use a constant 10s delay after every failure
 #' request("http://example.com") |>
-#'   req_retry(backoff = ~ 10)
+#'   req_retry(backoff = ~10)
 #'
 #' # When rate-limited, GitHub's API returns a 403 with
 #' # `X-RateLimit-Remaining: 0` and an Unix time stored in the

R/resp-url.R

@@ -47,4 +47,3 @@ resp_url_queries <- function(resp) {
 
   url_parse(resp$url)$query
 }
-

R/resp.R

@@ -102,7 +102,7 @@ new_response <- function(method,
 
 
 #' @export
-print.httr2_response <- function(x,...) {
+print.httr2_response <- function(x, ...) {
   cli::cli_text("{.cls {class(x)}}")
   cli::cli_text("{.strong {x$method}} {x$url}")
   cli::cli_text("{.field Status}: {x$status_code} {resp_status_desc(x)}")

R/url.R

@@ -190,11 +190,11 @@ format_query_param <- function(x,
     unclass(x)
   } else {
     x <- format(x, scientific = FALSE, trim = TRUE, justify = "none")
-    curl::curl_escape(x)  
+    curl::curl_escape(x)
   }
 }
 check_query_param <- function(x, name, multi = FALSE, error_call = caller_env()) {
-  if (inherits(x, "AsIs") ) {
+  if (inherits(x, "AsIs")) {
     if (multi) {
       ok <- is.character(x)
       expected <- "a character vector"