Eliminate partial match warnings (#147)

I'm reasonably certain that this is correct based on my reading on httr2 and httr source code.

Co-authored-by: Scott Chamberlain <sckott@fastmail.com>

Author: hadley

NAMESPACE

@@ -63,6 +63,7 @@ importFrom(rlang,abort)
 importFrom(rlang,caller_arg)
 importFrom(rlang,caller_env)
 importFrom(rlang,check_installed)
+importFrom(rlang,has_name)
 importFrom(rlang,is_empty)
 importFrom(rlang,is_error)
 importFrom(rlang,is_function)

R/pluck_body.R

@@ -22,7 +22,7 @@ pluck_body <- function(x) {
     return(x$fields)
 
     # json/raw-encoded body
-  } else if (!is.null(x$options$postfields) && is.raw(x$options$postfields)) {
+  } else if (has_name(x$options, "postfields") && is.raw(x$options$postfields)) {
     return(rawToChar(x$options$postfields))
 
     # upload not in a list
@@ -49,5 +49,6 @@ assert_request <- function(x) {
 
 is_body_empty <- function(x) {
   is.null(x$fields) &&
-    (is.null(x$options$postfieldsize) || x$options$postfieldsize == 0L)
+    (!has_name(x$options, "postfieldsize_large") || x$options$postfieldsize_large == 0L) &&
+    (!has_name(x$options, "postfieldsize") || x$options$postfieldsize == 0L)
 }

R/webmockr-package.R

@@ -22,6 +22,6 @@
 #' @importFrom fauxpas HTTPRequestTimeout
 #' @importFrom R6 R6Class
 #' @importFrom rlang abort warn check_installed is_list is_function is_error
-#' caller_arg try_fetch caller_env is_installed
+#' caller_arg try_fetch caller_env is_installed has_name
 ## usethis namespace: end
 NULL