diff --git a/R/resp-headers.R b/R/resp-headers.R index 18a5b715..815159dd 100644 --- a/R/resp-headers.R +++ b/R/resp-headers.R @@ -90,7 +90,7 @@ resp_date <- function(resp) { #' `resp_encoding()` will return `"UTF-8"`. #' @inheritParams resp_headers #' @examples -#' resp <- response(header = "Content-type: text/html; charset=utf-8") +#' resp <- response(headers = "Content-type: text/html; charset=utf-8") #' resp |> resp_content_type() #' resp |> resp_encoding() #' diff --git a/man/resp_content_type.Rd b/man/resp_content_type.Rd index 8d0a96ff..deddfea3 100644 --- a/man/resp_content_type.Rd +++ b/man/resp_content_type.Rd @@ -29,7 +29,7 @@ header. If that header is not found, not valid, or no charset parameter is found, returns \code{UTF-8}. Used by \code{\link[=resp_body_string]{resp_body_string()}}. } \examples{ -resp <- response(header = "Content-type: text/html; charset=utf-8") +resp <- response(headers = "Content-type: text/html; charset=utf-8") resp |> resp_content_type() resp |> resp_encoding()