Update to dev pkgsearch again

r-lib · Sep 24, 2024 · 78e40fa · 78e40fa
1 parent edf766a
commit 78e40fa
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/src/library/pkgsearch/DESCRIPTION b/src/library/pkgsearch/DESCRIPTION
@@ -25,7 +25,7 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.1.9000
 NeedsCompilation: no
-Packaged: 2024-09-24 07:38:50 UTC; gaborcsardi
+Packaged: 2024-09-24 07:46:37 UTC; gaborcsardi
 Author: Gábor Csárdi [aut, cre],
   Maëlle Salmon [aut] (<https://orcid.org/0000-0002-2815-0399>),
   R Consortium [fnd]

diff --git a/src/library/pkgsearch/R/http.R b/src/library/pkgsearch/R/http.R
@@ -17,14 +17,18 @@ get_default_curl_options <- function(options) {
   )
 }
 
-http_get <- function(url) {
-  curl::curl_fetch_memory(url)
+http_get <- function(url, options = list()) {
+  handle <- curl::new_handle(url = url)
+  options <- get_default_curl_options(options)
+  curl::handle_setopt(handle, .list = options)
+  curl::curl_fetch_memory(url, handle = handle)
 }
 
 http_post <- function(url, body, headers = character(), options = list()) {
   if (!is.raw(body)) body <- charToRaw(body)
   handle <- curl::new_handle(url = url)
   curl::handle_setheaders(handle, .list = headers)
+  options <- get_default_curl_options(options)
   curl::handle_setopt(
     handle,
     customrequest = "POST",