Use keyword arg in POST

crew102 · crew102 · commit 60eb4d906338 · 2019-11-25T11:59:23.000-05:00
diff --git a/R/search-pv.R b/R/search-pv.R
@@ -58,7 +58,7 @@ one_request <- function(method, query, base_url, arg_list, ...) {
     resp <- httr::GET(get_url, ua, ...)
   } else {
     body <- get_post_body(query, arg_list)
-    resp <- httr::POST(base_url, body, ua, ...)
+    resp <- httr::POST(base_url, body = body, ua, ...)
   }
 
   if (httr::http_error(resp)) throw_er(resp)

Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ one_request <- function(method, query, base_url, arg_list, ...) {`
`58`	`58`	`resp <- httr::GET(get_url, ua, ...)`
`59`	`59`	`} else {`
`60`	`60`	`body <- get_post_body(query, arg_list)`
`61`		`- resp <- httr::POST(base_url, body, ua, ...)`
	`61`	`+ resp <- httr::POST(base_url, body = body, ua, ...)`
`62`	`62`	`}`
`63`	`63`
`64`	`64`	`if (httr::http_error(resp)) throw_er(resp)`