do_request | R Documentation |
You can test the authentication headers like so:
do_request(url, params, timeout_seconds)
## Not run:
response <- httr::RETRY(
"GET", "https://httpbin.org/headers",
httr::authenticate("epidata", "fake_key")
)
content(response)$headers$Authorization == paste0(
"Basic ",
base64enc::base64encode(charToRaw("epidata:fake_key"))
)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.