removed unnecessary resp

schochastics · krlmlr · web-flow · commit f0e6378f2ff0 · 2025-06-01T21:00:25.000+02:00
Co-authored-by: Kirill Müller &lt;krlmlr@users.noreply.github.com&gt;
diff --git a/R/netzschleuder.R b/R/netzschleuder.R
@@ -63,8 +63,7 @@ download_file <- function(zip_url, token = NULL, file, size_limit) {
       "i" = "To download the file, set {.arg size_limit} to a value greater than {gb_size}"
     ))
   }
-  resp <- make_request(zip_url, token, method = "GET", file = file)
-  # writeBin(httr2::resp_body_raw(resp), file)
+  make_request(zip_url, token, method = "GET", file = file)
   invisible(NULL)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -63,8 +63,7 @@ download_file <- function(zip_url, token = NULL, file, size_limit) {`
`63`	`63`	`"i" = "To download the file, set {.arg size_limit} to a value greater than {gb_size}"`
`64`	`64`	`))`
`65`	`65`	`}`
`66`		`- resp <- make_request(zip_url, token, method = "GET", file = file)`
`67`		`- # writeBin(httr2::resp_body_raw(resp), file)`
	`66`	`+ make_request(zip_url, token, method = "GET", file = file)`
`68`	`67`	`invisible(NULL)`
`69`	`68`	`}`
`70`	`69`