> POST("http://httpbin.org/post", body = list(a = .8675309), encode = "json")
Response [http://httpbin.org/post]
  Date: 2017-10-18 17:46
  Status: 200
  Content-Type: application/json
  Size: 490 B
{
  "args": {}, 
  "data": "{\"a\":0.8675}", 
  "files": {}, 
  "form": {}, 
  "headers": {
    "Accept": "application/json, text/xml, application/xml, */*", 
    "Accept-Encoding": "gzip, deflate", 
    "Connection": "close", 
    "Content-Length": "12", 
...

> POST("http://httpbin.org/post", body = jsonlite::toJSON(list(a = .8675309), digits = 10), encode = "json")
Response [http://httpbin.org/post]
  Date: 2017-10-18 17:46
  Status: 200
  Content-Type: application/json
  Size: 471 B
{
  "args": {}, 
  "data": "{\"a\":[0.8675309]}", 
  "files": {}, 
  "form": {}, 
  "headers": {
    "Accept": "application/json, text/xml, application/xml, */*", 
    "Accept-Encoding": "gzip, deflate", 
    "Connection": "close", 
    "Content-Length": "17", 
...