curl_echo: Echo Service

Description Usage Arguments Examples

View source: R/echo.R

Description

This function is only for testing purposes. It starts a local httpuv server to echo the request body and content type in the response.

Usage

1
curl_echo(handle, port = 9359, progress = interactive(), file = NULL)

Arguments

handle

a curl handle object

port

the port number on which to run httpuv server

progress

show progress meter during http transfer

file

path or connection to write body. Default returns body as raw vector.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
if(require('httpuv')){
h <- new_handle(url = 'https://httpbin.org/post')
handle_setform(h, foo = "blabla", bar = charToRaw("test"),
  myfile = form_file(system.file("DESCRIPTION"), "text/description"))

# Echo the POST request data
formdata <- curl_echo(h)

# Show the multipart body
cat(rawToChar(formdata$body))

# Parse multipart
webutils::parse_http(formdata$body, formdata$content_type)
}

curl documentation built on June 23, 2021, 9:07 a.m.